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ABSTRACT 
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i  Large  amounts  of  data  collected  during  experiments  or 
produced  as  outputs  of  programs  that  simulate  systems, 
usually  need  further  treatment  in  order  to  complete  the 
research  task.  One  step  of  the  data  analysis  process  is 
the  manipulation  of  the  data. 

The  data,  even  when  stored  in  a  computer,  can  be  con¬ 
sidered  as  inert  if  it  cannot  be  manipulated.  Manipulation 
may  be  considered  any  appropriate  arrangement  or  transfor¬ 
mation  of  a  logical  data  matrix  composed  by  the  data. 

The  inert  data  matrix  is  activated  and  becomes  an 
y^Active  Matrix**  by  the  developed  system  IDAMAN  (Interactive 
DAta  MANager) .  It  is  expected  that  this  system,  based  on  the 
idea  of  Dr.  Daniel  Guinier,  fulfills  the  demands  for  such 
manipulations.  Compared  to  existing  similar  alternative 
systems,  this  system  possesses  two  particular  merits:  No 
specific  language  is  required;  and  the  separation  of  data 
manipulation  task  from  acquisition  and  future  calculus  grants 
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GENERAL  DESCRIPTION  OF  I DAMAN 


A.  INTRODUCTION 

Research  in  many  scientific  fields  is  usually  involved 
with  such  a  large  amount  of  data  that  manipulation  becomes 
difficult,  time  consuming  and  error  prone.  A  large  amount 
of  data  requires  auxilliary  storage  such  as  a  disk  for  backup 
and  data  processing,  while  the  efficiency  required  calls 
for  direct  access  organization  of  the  data  file.  The  accom¬ 
plishment  of  such  a  task  requires  several  considerations. 

The  first  consideration  is  availability  of  the  data. 

The  sources  of  data  are  either  application  programs  in  several 
areas  such  as  language  analysis,  biology  [Refs.  1  and  2], 
simulation,  etc.,  or  observations  and  measurements  during 
experiments.  The  data  are  either  readily  available  for 
manipulation  or  must  be  inserted  into  the  system  by  the  user 
via  the  keyboard. 

The  second  consideration  is  the  nature  of  manipulation 
of  the  data  that  has  to  be  performed  after  it  is  available  in 
the  machine.  The  provided-by- the-system  manipulation  ability 
has  to  be  such  that  the  manipulated  data  will  be  ready  for 
the  next  of  the  process,  namely  the  mathematical  model  analysis 
graphics,  or  statistical  calculus.  The  system  must  also  be 
capable  of  covering  as  many  cases  as  possible.  The  data  must 
be  stored  in  an  organized  virtual  structure,  e.g.,  easily 


realized  by  the  user  logical  table  or  matrix  or.  random,  m.ass 
storage . 

The  above  considerations  call  for  a  computer  methodology 
that  gives  to  the  system  DATA-l'SER-DATA  manager  a  high  level 
of  interactivity,  and  at  the  end  of  the  fourth  step  sFig.  li 
maximum  services  with  minimum  user  activity.  The  data  must 
be  organized  by  the  user  so  that  it  can  be  easily  referred 
to,  and  manipulated.  The  creation  of  such  an  organization 
of  the  data  can  be  called  a  "header"  of  the  data  matrix. 

B.  CONCEPT  OF  THE  INTERACTIVE  DATA  MANAGER,  I  DAMAN 

To  perform  a  complete  data  processing  cycle,  the  Inter¬ 
active  Data  Manager,  IDAMAN,  supports  two  kinds  of  functions 
Creation  of  a  header. 

•  Data  manipulation  according  to  the  user  defined  header. 

The  user  is  not  involved  with  the  manipulation  of  the 
data  but  rather  only  assigns  what  manipulation  is  desired, 
by  creating  the  header  of  the  data  matrix.  At  the  same  time 
the  system  supervises  the  creation  of  the  appropriate  files 
that  are  transparent  to  the  user. 

1 .  Creation  of  the  Header 

An  interactive-informative  communication  between 
computer  and  user  creates  the  header.  The  created  header 
contains  information  regarding  the  columns  and  the  rows  of 
the  data  matrix.  Such  information  causes  the  manipulation 
of  the  data.  The  header.' s  data  are  integers  (e.g.,  number 
of  columns,  number  of  rows) ,  reals  (e.g.,  actual  or  imposed 
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by  the  user  boundary  values  (extrema)  for  each  column)  and 
characters  (e.g.,  names  of  the  variables,  names  of  sets  of 
observations  (rows)). 

Several  data  of  the  header  are  stored  in  the  mass 
storage  in  a  sequential  access  file  for  future  use. 

2 .  Manipulation  of  the  Data 

The  data  to  be  manipulated  are  stored  in  mass  storage 
in  direct  access  organization  files  and  in  the  logical  form 
of  a  matrix  with  dimension  NCOL*NROW,  where  NROW  is  the 
number  of  rows  (or  observations  or  lines)  and  NCOL  is  the 
number  of  columns  (or  parameters) . 

The  manipulation,  a  transparent  operation  of  the  sys¬ 
tem,  is  executed  during  the  creation  of  the  header  and  at 
the  same  time  that  each  manipulation  is  assigned.  The  manipu 
lation  of  the  data  causes  the  creation  of  a  new  direct  access 
file  in  the  secondary  storage  whenever  it  is  considered 
necessary.  The  same  file  is  used  in  the  opposite  case  for 
space  economy  reasons. 

Manipulation  functions  executed  by  the  IDAMAN  are: 

•  Addition  or  suppression  of  lines  or  columns. 
Rearrangement  of  the  order  of  lines  or  columns  (ranking) 

•  Transformation,  single  or  multipass,  is  performed  by 
analysis  of  a  full  input  character  string  (representing 
the  transformation)  conversion  from  infix  to  postfix 
notation,  and  evaluation  using  push-down  stack.  The 
assigned  transformations  may  include  functions  with 


arguments  such  as  the  number  of  columns  tactually  the 
value  corresponding  to  column  will  be  used  as  an  argument) , 
reals  or  integers,  and  the  number  of  columns  (in  that 
case  the  value  corresponding  to  the  column  number  is 
taken  to  be  constant) . 

•  Sorting  column  guides,  single  or  multiple,  where  suc¬ 
cessive  sortings  are  executed  as  a  function  of  successive 
columns . 

Searching  for  a  particular  value  or  a  missing  value 
involving  the  entire  data  matrix  or  columns  and/or  rows 
assigned  by  the  user. 

•  Randomization  of  row  order  to  eliminate  problems  created 
due  to  collection  time  effect. 

•  Merging  of  two  f iles--either  row-row  (one  over  the 
other) ,  or  column-column  (one  beside  the  other) . 

Display  of  the  data  matrix  with  user  defined  format  via 
the  keyboard. 

As  soon  as  the  inert  data  are  involved  in  a  manipulation 
process,  IDAMAN  can  be  considered  as  activated.  The  data 
matrix  with  its  assigned  header  can  be  called  an  "ACTIVE 
DATA  MATRIX." 

Fig.  2  illustrates  the  comparison  of  three  different 
concepts:  a)  an  interactive  and  conversational  system  for 

data  analysis  applied  to  biology  [Refs.  1  and  2];  (b)  the 

IDA  from  SPSS  (Interactive  Data  Analysis  from  the  Software 
Package  for  Social  Sciences) ;  and  (c)  the  presented  system, 
IDAMAN. 
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C.  CONCEPTUAL  PROPERTIES  OF  THE  DEVELOPED  SYSTEM  I  DAMAN 

The  developed  system  I DAMAN  has  the  following  properties: 
Universality  of  the  source  language:  structured  FORTRAN 
77  is  used  for  the  implementation  of  the  system. 

•  Portability:  Granted  by  the  use  of  FORTRAN  77  and  the 
organization  of  the  program.  The  required  central  memory 
size  can  even  be  satisfied  by  a  microcomputer  with  module 
overlay . 

•  Simplicity  of  use:  No  special  knowledge  or  language  is 
required  for  the  use  of  the  system. 

•  All  operations  like  creation  and/or  saving  the  data 
on  files,  are  transparent  to  the  user.  Display  or 
printing  the  data  contained  on  these  files  (header  or 
data  file)  is  very  simple  and  does  not  need  any  special 
consideration  about  formats. 

D.  EXISTING  SIMILAR  SOFTWARE  PACKAGES  FOR  DATA  ANALYSIS 
Existing  known  packages  providing  the  same  task  can  be 

divided  into  two  categories: 

•  Packages  of  subroutines  for  specific  calculations  with¬ 
out  system  data  manipulation;  such  systems  are  the 
HARWELL  Library  (1981)  from  the  United  Kingdom  Energy 
Authority,  the  IMSL  Library  (1982) ,  and  the  System  360 
Subroutines  Library  (1968). 

•  Packages  of  subroutines  for  calculations  with  the 
system  of  data  manipulation;  such  systems  are  the  Bio- 
MeDical  Package  ( BMDP ,  1981),  and  the  Statistical 
Package  for  the  Social  Sciences  (SPSS,  1983). 
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BMDP  and  SPSS  are  complete  statistical  packages.  The 
first  one  is  produced  by  UCLA  (University  of  California  at 
Los  Angeles)  and  is  oriented  toward  Bio-medical  statistical 
applications.  The  second  is  oriented  to  social  science 
statistical  applications.  These  two  packages  have  a  wide 
range  of  applications  in  statistics  but  are  not  interactive 
and  use  their  own  conventional  languages. 

In  the  SPSS  series  in  data  analysis,  IDA  is  presented  as 
an  interactive  data  analysis  and  forecasting  system  (1982) . 

The  difference  between  the  concepts  of  IDA  and  I DAMAN  is 
that  in  IDA,  the  data  are  manipulated  and  elaborated  by  the 
same  program  (data  summarization,  regression,  time-series 
analysis,  etc.),  while  in  IDAMAN,  only  manipulation  is  exe¬ 
cuted.  IDAMAN  is  strictly  a  data  manipulation  system.  The 
intention  of  the  design  was  to  separate  the  two  tasks--con- 
sidering  them  as  different.  In  this  way,  modularization  is 
obtained.  The  next  step  of  the  general  task  "data  analysis" 
can  be  executed  separately  by  another  module.  The  data,  after 
the  manipulation,  are  used  by  independent  or  interdependent 
modules.  Such  modules  can  provide  one,  two  or  multivariable 
analysis  (mathematical  and/or  statistical)  involving  one  or 
several  samples  or/and  series  of  samples.  The  IDAMAN  pro¬ 
vides  the  flexibility  of  executing  the  same  data  elaborations 
with  the  same  data  in  different  forms  (manipulations) . 

The  calculation  subroutines,  described  by  several  similar 
packages,  can  be  integrated  by  the  process  of  a  calling  program 
that  reads  the  data  of  the  header  created  by  the  IDAMAN. 


.-A**  “  v  i  .  .-.c  cperati  r.g  system.  -ne  cisposaoie 

virtual  memory  _s  3-  Megabytes  ar.d  the  direct-access  memory 
is  the  user's  disk  RMC  5  2:6  Megabytes,'  . 

FORTRAN  77  cn  VAX  11  permits  the  use  of  the  facilities 
given  to  a  32  bit  or  to  a  16  bit  computer  (PDPll  or  LSIli  or 
any  other  16  bit  microcomputer  precision  for  integer  and  real 
numbers,  e.g.,  integers  on  2  bytes  or  on  4  bytes) . 

The  modularity  of  the  program  implementing  the  IDAMAN 
permits  a  transportability  to  a  lower  memory  capacity  micro¬ 
computer  (16  bit  or  16  bit-like  microcomputer). 

F.  OVERVIEW  OF  FUNCTIONAL  CAPABILITIES  OF  IDAMAN 

•  Column  mnemonics:  used  to  assign  mnemonic  names  to 
columns  (parameters  or  variables) . 

•  Row  mnemonics:  used  to  assign  mnemonic  names  to 
individual  rows  and/or  sets  (or  subsets)  or  rows.  In 
this  way  the  data  can  be  retrieved  by  index  (the  set 
number)  or  by  the  row  or  set  mnemonic  name.  An  example 
of  the  usefulness  of  this  operation  is  the  comparison 
of  means  of  sets  or  the  tracing  of  groups  of  data. 

•  Tracing  extrema:  used  to  permit  the  user  to  change 
the  extrema  values  by  giving  a  "window"  for  tracing. 

With  this  function,  the  system  does  not  need  additional 
information  about  scales  if  a  tracing  application  program 
is  required. 


Sorting  and  multi-sorting:  used  to  reorganize  the  data 
according  to  column  guides  by  sorting  successively  in 
increasing  order  to  generate  sets  and  subsets  of  rows 
(observations) . 

Data  retrieval:  used  to  find  one  or  several  values 
inside  specific  fields  (column(s)  or  row(s))  or  a 
specific  "gold"  number  that  corresponds  to  missing  values 
The  process  of  retrieval  is  applied  in  the  full  matrix 
or  in  particular  parts  of  it,  given  by  the  user.  The 
data  to  be  retrieved  can  be: 

Identified  as  erroneous  data. 

Missing  data  which  are  referenced  as  a  "gold" 
value  internal  to  the  system  or  changed  by  the  user 
to  represent  a  pseudo-improbable  value. 

Listed,  and  the  associated  row,  column  and  index 
numbers  are  given  to  the  user.  This  information 
will  be  useful  for  eventual  corrections  or  localiza¬ 
tion  on  the  listing. 

Rearrangement:  used  to  eliminate  the  column  guides  used 

for  multisorting  or  to  partition  the  data  matrix  for 
particular  elaborations  (e.g.,  multiple  partial 
regression) . 

Transformations:  used  to  restore  some  statistical 

properties  or  to  perform  directly  mathematical  operations 
involving  data  of  the  matrix  and/or  numbers. 
Randomization:  used  to  burst  the  original  data  to 

avoid  effects  of  time  or  preordering. 
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•  Compression:  used  to  suppress  some  data  for  future 
calculations  (logical  suppression)  without  physical 
suppression  of  the  data.  This  operation  can  be  done 
using  a  special  compressed  binary  file  [Refs.  3  and  4] . 

•  Input/Output:  transparent  to  the  user  and  can  be 
directed  to  the  desired  device  or  file. 

Files  generation:  operations  also  transparent  and 
executed  by  assignment  of  a  single  key  (number  of 
alphanumeric) . 

•  Display  of  the  header's  information:  used  to  facilitate 
the  use  of  the  program  and  the  creation  of  the  header. 

•  Display  the  data:  used  to  display,  on  the  terminal,  the 
manipulated  data  being  on  direct  access  files  in  secondar; 
memory,  by  a  simple  command  and  in  format  defined  by 

the  user,  if  any  change  of  the  normal  format  is  required 
(e.g.,  nnnnnn.nn  gives  FORTRAN  format  F9.2). 

•  Merging:  Files  can  be  merged  in  a  row-row  (one  over 
the  other)  or  column-column  (one  aside  the  other)  sense 
without  any  particular  user  involvement. 

G.  DESIGN 

1 .  Modular  Structure  of  IDAMAN 

Figs.  3  and  4  present  the  structure  of  IDAMAN,  showing 
all  the  subroutines  used  and  the  overlay  form.  The  source 
code  of  the  system  is  presented  in  Appendix  A. 

2 .  Brief  Description  of  the  Subroutines 

ANADIS:  Analyzes  strings  used  to  assign  numbers  of  columns 

or  rows  that  have  to  be  displayed,  retrieved  or 
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rearranged  ( e  .  g  .  , 
numbers  1467893) 

Permits  the  assignment  of  columns  or  rows  by  their 
mnemonic  names. 

Displays  on  the  screen  information  about  the  columns 
of  the  header. 

Presents  the  selection  table  of  the  column  informa¬ 
tion,  and  calls  the  appropriate  subroutine  regarding 
the  information  to  be  assigned  by  the  user. 

Modifies  the  information  about  the  columns. 

Assigns  mnemonic  names  to  columns. 

Merges  (combines)  two  data  files  and  their  headers 
in  the  column-column  (one  over  the  other)  sense. 
Computes  the  values  of  functions  used  in  the  user 
assigned  expressions  for  transformations. 

Gets  or  sets  the  binary  value  0  or  1  in  a  compressed 
binary  matrix  NROW*NCOL  for  any  I's  and  J's. 

Merges  (combines)  two  data  files  and  their  headers 
in  the  row-row  (one  over  the  other)  sense. 

Converts  (analyzes)  the  expression  string  assigned 
for  the  transformation  in  an  infix  notation  expres¬ 
sion.  This  string  is  composed  from  character  defined 
numbers,  letters,  delimiters,  etc.  It  is  decomposed 
to  the  several  elements  that  constitute  the  infix 


expression.  It  calls  the  subroutines  POSTF  and  EVAL 
for  further  processing  of  the  expression.  It  stores 


CRANK: 


CREATE: 


CRINFO: 


DISDAT: 


DISPLA: 


the  result  of  the  evaluation  on  the  next  rightmost 
end  of  the  data  rr.atr ix--creat ing  a  new  column . 
Assigns  column  ranking  by  column  nurier  or  column 
mnemonic  names.  The  assignment  of  the  columns  can 
be  done  as  in  the  previous  paragraph  and  the  same 
subroutines  are  used.  After  the  assignment,  it  call 
the  corresponding  subroutine  (RANK1  or  RANK 2 )  for 
ranking  of  columns. 

Creates  a  new  header.  It  opens  the  sequential  file 
on  which  information  of  the  created  header  will  be 
stored  and  passes  control  of  the  program  to  the 
subroutine  CRINFO.  At  the  end  of  the  creation,  it 
calls  WRITER  for  recording  of  information,  which 
resides  in  the  main  memory,  to  the  opened  file  in 
mass  storage. 

Determines  if  either  column  or  row  information  is 
to  be  assigned  next.  It  calls  the  appropriate 
subroutine  COLINF  or  ROWINF. 

Displays  any  or  all  user  assigned  (columns,  rows) 
parts  of  the  data  file. 

Displays  on  the  CRT  the  information  related  to  the 
columns  and  rows  of  a  previously  defined  header.  It 
opens  the  sequential  file  on  which  information  is 
stored,  calls  READER  which  reads  the  information  and 
stores  it  in  the  main  memory  and  then  calls  CDISP 
and  RDISP  which  display  information  about  columns 
and  rows. 
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I 


EXT REM: 

!  EXSHl : 

I 


FICH: 


» 

I 


FINDMM: 


FORM: 


ENSORT: 


EVAL: 

MERGE: 


MODIFY : 


! 


Assigns  tracing  extrena. 

Executes  internal  and  address  calculation  sorts 
using  Shell's  method  to  rank  elements  in  increasing 
order,  modified  for  address  calculations. 

Opens  at  run  time,  direct  access  unformatted  or 
sequential  files  named  ’FORnnn.DAT'. 

Evaluates  the  minimum  and  maximum,  value  of  each 
column  of  the  data  matrix. 

Permits  the  user  to  determine  the  format  of  the  data 
that  will  be  displayed. 

Permits  Input/Output  modifications  or  assignments 
for  physical  Input  and/or  Output,  and/or  Print  for 
Devices  or  Files  within  a  FORTRAN  Program  or 
Subroutine . 

Evaluates  (computes  the  result)  the  postfix  expression 
Merges  two  existing  headers.  It  opens  the  two 
files  to  be  merged  and  calls  COMCOL  or  COMROW  for 
the  merging  of  the  two  files  in  the  column-column 
(one  aside  the  other)  sense  or  row-row  (one  over 
the  other)  sense. 

Modifies  an  existing  header.  It  opens  the  file  on 
which  information  is  stored,  calls  READER  to  pass 
it  from  the  secondary  to  the  main  memory  and  calls 
the  appropriate  subroutine  for  the  modification 
(COLMOD  for  column  or  ROWMOD  for  row)  which  actually 


executes  the  modification.  At  the  end,  it  restores 
the  modified  information  by  calling  WRITER. 


ML'LSOR: 


PFIX: 

RANDOM: 

RANK: 

RANKl : 

RANK2 : 

RDISP: 

READER: 


Assigns  the  guides  (column  numbers  or  column  mnemor. 
names)  that  will  be  used  for  the  multiple  sorting. 
It  calls  the  subroutine  ANADIS  which  analyzes  the 
string  of  column  numbers  and  characters  and/or 

":")  assigned  by  the  user  via  the  terminal  and  iso¬ 
lates  the  column  numbers  when  the  assignment  is 
done  by  column  numbers.  If  the  assignment  is  done 
by  mnemonic  names,  it  calls  the  subroutine  ASBYMN 
which  stores  the  names  in  the  appropriate  array. 

In  both  cases  it  calls  the  appropriate  subroutine 
( REARl  or  REAR2)  for  further  processing. 

Converts  the  infix  expression  to  the  corresponding 
postfix  notation. 

Randomizes  the  data  matrix. 

Rearranges  the  columns  of  the  data  matrix  according 
to  the  column  numbers  assigned  by  the  user. 
Rearranges  the  columns  of  the  data  matrix  according 
to  the  column  numbers  assigned  by  the  user. 
Rearranges  the  columns  of  the  data  matrix  according 
to  the  column  mnemonic  names.  It  calls  TRANS  to 
transform  the  column  name  to  the  column  number. 
Displays  on  the  screen  information  about  the  rows 
of  the  header. 

Records  information  regarding  the  header  on  a 


REAR: 


sequential  file. 

Multisorts  the  data  matrix.  It  opens  the  direct- 
access  file  of  data,  and  consequently  calls  the 


REAR!  : 

REAR2 : 

REJECT: 


REORD: 

ROWINF: 

ROWMOD: 
ROWNAM: 
ROWS UP: 


subroutine  EXTREE  for  the  sorting.  It  rearranges  the 
data  according  to  the  final  inverted  relative 
addresses  without  using  extra  file  for  temporary 
storage  of  the  data. 

Used  to  continue  the  process  of  multi-sorting 
column  numbers  by  calling  the  subroutine  REAR. 

It  functions  like  REAR1  for  column  assignment. 

It  calls  TRANS  to  transform  column  names  to  column 
numbers . 

Rejects  rows  not  involved  in  particular  computations 
("logical  suppression");  these  rows  are  not  physicall 
suppressed  but  are  just  ignored  when  the  calculation 
is  executed.  The  row  to  be  rejected  is  given  the 
binary  value  of  zero  while  the  retained  row  is  given 
the  binary  value  of  one.  In  this  way,  bit  words  are 
converted  to  decimal.  The  purpose  of  the  method  is 
to  save  space  and  time. 

Reorders  internally  (without  use  of  a  temporary  file) 
the  rows  of  the  data  file  after  multi-sorting  (via 
the  produced  invert  relative  addresses) . 

This  corresponds  to  the  previous  subroutine  for 
rows . 

Modifies  information  about  the  rows  of  the  header. 
Assigns  row  mnemonics. 

Presents  the  prompts  for  the  row  suppression 


assignment,  permits  the  assignment  of  the  suppression 


row  numbers  which  are  stored  in  an  array,  and  calls 
the  subroutine  SUP  that  executes  the  suppression. 

SUP:  It  suppresses  the  rows  of  data  file  assigned  by  the 

previous  subroutine. 

SUPSET:  Suppresses  the  rows  of  the  data  matrix  that  corres¬ 
pond  to  an  assigned  set  of  rows  with  a  common 
mnemonic  name. 

SEEDAT:  Retrieves  user  defined  data  or  searches  for  missing 

values  from  the  data  matrix. 

TESTER:  Tests  if  a  mnemonic  name  has  been  assigned  as  a 

column  mnemonic  name. 

TRANS:  Transforms  a  column  mnemonic  name  to  a  column 

number . 

TRSFRM:  Presents  the  table  of  the  available  functions  that 

can  be  used  for  transformations  and  calls  the  sub¬ 
routine  CONV  that  calculates  the  assigned  expression. 

WRITER:  Writes  the  information  regarding  the  header  on  a 

sequential  file. 


METHODS  USED  FOR  THE  IMPLEMENTATION' 


II  . 

A.  SORTING 

1 .  Introduction 

A  large  amount  of  data  may  need  to  be  sorted.  In 
order  to  avoid  intermediate  manipulations  in  mass  memory,  a 
study  of  the  most  efficient  method,  in  terms  of  timing,  has 
been  carried  out. 

If  the  data  matrix  is  stored  on  a  direct-access  file 
on  a  disk  and  not  in  central  memory  (which  is  the  general 
case) ,  a  sort  by  address  calculation  avoids  intermediate 
exchanges  between  central  and  secondary  memory.  This  results 
in  time  burdening  of  the  method  [Ref.  5]. 

When  data  are  preordered,  methods  using  binary  trees 
must  be  avoided  because  they  tend  to  "bubble"  [Refs.  6  and  7], 

When  multi-sorting  is  needed,  methods  requiring 
departure  boundaries  as  the  integer  result  of  a  division  by 
two  (dihotomic  methods),  are  inappropr iate--gi ving  wrong 
results  [Ref .  8 ] . 

Guinier  (1980  [Ref.  5]  has  shown  that  the  manipulation 
of  numbers  corresponding  to  records  stored  in  a  random  access 
RKO 5  disk  file  under  the  RT11  operating  system  considerably 
increases  the  elapsed  time  by  a  factor  of  40  if  MacLarren 1 s 
method  is  used  and  more  than  80  if  Singleton's  method  is 
used.  It  is  necessary  to  transfer  the  records  of  the  file 


in  an  image  array  of  the  column  to  sort  and  to  have  the 
ordered  elements  in  the  form  of  addresses  in  order  to  avc 


manipulations  of  the  full  records  during  the  sort. 

2 .  Binary  Tree  Sorts  (Monkey  Puzzle,  Hoare's  Quicksort; 

In  the  binary  tree  sorts,  elements  to  be  sorted  and 
contained,  in  a  corresponding  array,  are  scanned  and  placed 
at  the  appropriate  node  of  the  created  binary  tree.  The 
relative  position  of  the  node  on  which  an  element  will  be 
placed  in  the  tree  is  dependent  on  a  comparison  of  the  size 
of  each  element  with  the  elements  already  existing  on  the 
tree.  The  left  or  right  branch  is  selected,  respectively,  if 
the  element  is  larger  or  smaller. 

If  the  original  data  are  randomized: 

•  The  number  of  nodes  n  at  a  given  level  1  is  n  =  2**1. 

•  The  depth  of  the  resulting  binary  tree  is  d  =  log  2(n+l) 

•  The  number  of  comparisons  to  place  the  node  at  level  1 
is  1  +  1  and  the  total  number  of  comparisons  is  c  with 

d  +  cl  <=  c  <=  cl  and  cl  =  SUM  1  = 1  to  d-1  {(1+1)  *2**1; 
It  can  be  shown  that  c  is  approximately  equal  to 
n* log  2 ( n) . 

If  the  original  data  are  preordered: 

■  The  resulting  tree  appears  like  a  single  branch  tree 

and  the  total  number  of  comparisons  is  c  =  2+3+4+...  h 
That  is,  c  =  n*(n+l)/2  -  1  which  is  approximately  n*n/2. 
The  .method  tends  to  "bubble",  with  the  number  of  compari 
sons  c  =  (n-1) **2  =  n**2  -  2 *n  + l--approximately  equal  to 


[i] 


n*n.  An  extra  array  is  needed  but  the  elements  are  not 
manipulated.  Hibbard  (1963)  [Ref.  9]  suggests  the  use 
of  Shell's  method  (Shell  (1959))  as  an  alternative  method 
not  sensitive  to  the  preordering.  In  the  case  of  dealing 
with  preordered  data,  a  good  strategy  is  to  randomize 
them  with  a  single  pass  before  sorting  and  without 
manipulation  of  the  file  records,  using  instead  randomi¬ 
zation  of  the  addresses  by  which  the  data  will  be  read. 
This  is  done  by  the  randomization  function  of  the  I DAMAN. 

3 .  Shell's  Method 

This  method  uses  the  principle  of  interchange  by 
adjacent  pairs.  In  contrast  with  the  bubble  sort,  it  moves 
list  entries  at  most  one  position  at  a  time,  dividing  the 
original  list  of  n  entries  into  two  parts.  This  method  can 
compare  entries  that  are  two  positions  apart. 

This  method  is  insensitive  to  preordering.  But  an 
ambiguity  remains  in  the  calculation  of  m  =  integer  [m/2] 
and  cannot  be  used  for  multi-sorting. 

4 .  Singleton's  Method 

Singleton's  method  is  an  extension  of  Hoare ' s  "Quick¬ 
sort".  Because  a  tree  method  gives  bad  results  when  the 
items  are  presorted  or  take  a  constant  value,  the  problem 
has  been  changed  to  an  exchange  of  elements  when  they  are 
equal  to  or  greater  than  a  temporary  value  T  in  one  set  of 
values  and  less  than  T  in  the  other  set.  This  operation  gives 
a  better  split  of  the  original  set  of  items. 


31 


The  median  set  is  generally  missing.  Therefore, 
comparison  with  the  temporary  value  and  the  median  of  the 
values  of  X(i)  is  avoided.  X([i+j]/2)  and  X(j)  are  used  for 
T.  This  gives  a  better  estimation  of  the  median  element 
than  a  single  value. 

In  searching  for  two  elements  to  exchange,  the  data- 
almost-sorted  X(i)  and  X(j)  are  used  as  boundary  values. 

X(i)  <=  T  <=  X ( j )  and  the  indexes  are  compared  after  perform 
ing  the  exchange. 

The  lower  and  the  upper  sets  must  have  approximately 
the  same  size  to  result  in  efficient  performance. 

Speed  of  the  method  is  greatest  for  less  than  11 
items  when  completing  the  sort  by  short  sequences  using 
Shell's  method  of  sorting  by  interchange  of  adjacent  pairs 
[Refs .  8  and  9 ] . 

For  N  elements,  the  dimension  of  the  lower  and  upper 
sets  ( IL ( )  and  IU())  must  be  k  with  N  =  2  *  * ( k— 1 )  -  1. 

5 .  Evaluation  of  Selected  Sort  Methods  in  Terms  of 

Performance 

Comparisons  between  the  "monkey  puzzle"  binary  tree, 


Shell's  and  Singleton's  sorting  methods  can  be  obtained  from 
the  following  data  which  represent  a  mean  of  ten  tests,  in 
order  to  reduce  the  effect  of  the  activity  of  the  VAXll . 


randomized  data: 

including 
VAXll - VMS 

address  calcula 

tier.,  on 

n 

Shell 

Tree 

Singleton 

1,000 

0.4  s 

0.2  s 

0.2  s 

2,000 

1.1  s 

0.6  s 

0.4  s 

3,000 

2.1  s 

1.0  s 

0.6  s 

5,000 

3.8  s 

2.0  s 

0.9  s 

10,000 

7.2  s 

4.2  s 

1.9  s 

For  preordered  data:  including  address  calculation,  on 

VAX11-VMS . 


n 

Shell 

Tree 

Singleton 

1,000 

0.2 

s 

15.1 

s 

0.1  s 

2,000 

0.5 

s 

44 . 8 

s 

0.2  s 

3,000 

1.1 

s 

117.8 

s 

(  1.9 

mn )  0.3s 

5,000 

1.9 

s 

310.1 

s 

(  5.1 

mn)  0.5s 

10,000 

4 . 8 

s 

1,072.7 

s 

(17.9 

mn)  1.0s 

When  data  are  randomized  between  Tree's  and  Shell's 
methods,  Berztiss  (1975)  [Ref.  10]  gives  a  ratio  of  1.3  in 
favor  of  Tree's  on  an  Algol  version  running  on  a  CDC  1604A. 
The  ratio  of  the  presented  results  is  greater  than  this  value 
if  the  data  are  randomized.  Between  Tree's  and  Singleton's 
methods,  the  ratio  is  2  and  the  velocity  is  5  times  better 
on  theVAXll/780  than  the  results  given  by  Singleton  on  the 
Burroughs  B5500. 

When  data  are  preordered,  degeneration  of  Tree's 
method  on  a  bubble  appears  clearly.  The  results  of  Shell's 
and  Singleton's  methods  are  stable  and  twice  as  good. 
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Singleton's  method  is  20  times  faster  on  the  VAXll,  “SO 
under  VMS  than  on  a  PCPll/0  5  under  RTll  .  Gumier  ;  1 9  8 0  :■ 
gives  4  s.  for  1000  items  [Ref.  10]. 

The  methods  selected  by  I DAMAN  are  Shell's  method  for 
original  single  sorting  and  the  binary  tree  sort  for  multi- 
sorting  [Ref .  11 ]  . 

B.  MULTIPLE  SORTING 
1 .  Introduction 

A  system,  via  multiple  sorting,  executes  a  repeated 
sorting  of  the  data  matrix  according  to  successive  column 
numbers,  or  column  names  assigned  by  the  user  via  the  terminal. 

This  function  permits  nested  sorting  of  the  data  matrix. 
The  concept  of  nested  sorting  is  clearly  illustrated  by  the 
following  example.  Suppose  we  have  the  data  matrix  as  in 
Fig.  5(a)  and  we  repeatedly  sort  it  according  to  the  columns 
4,  3,  2  and  1.  The  resultant  matrix  is  shown  in  Fig.  5(e)  . 

In  this  matrix  the  first  four  rows  of  column  1  have  the  same 
value.  The  result  of  the  repeated  sorting  is  that  the  corres¬ 
ponding  first  four  rows  of  column  2  (which  is  nested  to  column 
1  according  to  the  assigned  sorting  sequence  4,  3,  2,  1)  are 

sorted.  Likewise,  in  colume  3  the  rows  2,  3  and  4  have  the 
same  value  and  the  result  of  the  repeated  sorting  is  that  in 
column  4  the  avlues  in  rows  2,  3  and  4  are  sorted. 

The  concept  is  further  clarified  in  Fig.  6  where  direct 


sorting  of  the  data  matrix  is  presented  based  on  column  1 
(the  last  column  of  the  sequence  of  the  repeated  sorting) . 


» 


t- 


The  result 

is  a  rr. 

atrix  sorted  in  column 

1. 

But  the  nested 

sorting 

of 

the  previous  case 

does  not  exist 

• 

This  type 

of  sorting 

is  useful 

in  cases  where  some 

variables  of  the 

active  data 

matrix  are 

not 

quantitative 

( continuous 

)  but 

descriptive 

(discrete) 

and 

are  attached  t 

classes 

or 

subclasses  of  data.  Successive 

sorting  involvi 

such  variables  organizes  the 

matrix  in 

a  corresponding  ord< 

if  the 

collection 

of  data  is 

not  presorted 

by  function  of 

classes 

or 

subclasses  (Fig. 

7)  . 

1 

1 

3.2 

0 

0 

8.1 

0 

0 

8.1 

0 

0 

12.0 

0 

0 

12.0 

0 

1 

13.4 

1 

1 

3.1 

0 

2 

1 . 5 

0 

2 

1.5 

0 

2 

2.6 

1 

0 

0.7 

1 

0 

0 . 7 

0 

1 

13.4 

1 

1 

3.1 

0 

2 

2.6 

1 

1 

3.2 

1 

2 

13.2 

1 

2 

13.2 

"Descriptive"  "Quantitative"  "Descriptive' 
data  data  data 


Before  sorting 


After  sor 


Fig.  7.  Set  of  Data  Containing  Two  Classes 
Three  Subclasses 


Quantitative 

data 


2 .  Principle 

Operation  of  the  repeated  sorting  of  the  data  macrix 
is  executed  in  two  phases.  The  first  phase  sorts  the  data 
matrix  consecutively  according  to  the  assigned  sequence  of 
column  numbers  or  names,  while  the  second  rearranges  the  rows 
of  the  initial  matrix  according  to  the  result  of  the  repeated 
sortings . 

a.  Phase  One 

The  virtual  process  by  which  the  repeated  sorting 
takes  place  is  the  following  (Fig.  8)  : 

(1)  Read  the  first  column  according  to  which  the  data 
must  be  sorted.  Store  the  data  of  this  column  in  an 
array . 

(2)  Sort  the  array  and  get  the  invert  relative  addresses 
in  an  array  (MO) . 

(3)  Read  the  inverted  relative  addresses.  (This  means 
that  the  rows  are  rearranged  before  the  next  sorting.) 

(4)  Repeat  until  all  the  sorting  guides  have  been  used. 

In  order  to  avoid  rearranging  and  thus  to  save  process 
time  and  space  utilized,  the  following  method  is  used 
(Fig.  9)  . 

A  one  dimension  array  (NOR)  is  used  to  store  the 
relative  addresses  in  which  the  data  file  will  be  read  and 
remains  unchanged  during  the  whole  process. 

(1)  Initialize  the  NOR. 


(2)  Read  the  first  column  in  which  storing  will  take  place 


STEP  3 


.  Invert  s' CP.  2 
according  S'C 
.  Read  Y  2  acco¬ 
rding  NOP.3, 

.  Sort  Y  2. 


STEP  4 


Invert  NOR  3 
according  NO  2. 
Read  Y  i  acco¬ 
rd  i  no  NOR  4. 
Sort -Y  1. 


(3)  Sort  the  column  and  get  the  inverted  relative  addresses 
(NO)  . 

(4)  Invert  the  NOR  according  the  NO. 

(5)  Repeat  until  all  sorting  guides  have  been  used. 

b.  Phase  Two 

The  second  phase  is  the  rearranging  of  the  data 
matrix  according  to  the  last  inverted  relative  addresses, 
using  the  same  external  file.  A  pictorial  presentation  of 
the  algorithm  used  is  shown  in  Fig.  10. 

The  reasoning  of  this  algorithm  is  the  following: 

In  Fig.  10  the  array  containing  the  inverted  relative  addresses 
is  noted  as  NOR.  The  first  pointer  of  NORl  is  pointing  to 
row  number  6.  This  means  that  row  6  must  move  to  the  first 
relative  address  of  the  matrix.  The  contents  of  this  address 
however  must  be  saved.  For  this  reason  a  mutual  exchange 
between  the  first  and  sixth  row  of  the  matrix  is  executed.  In 
this  way  the  first  row  already  contains  the  appropriate  values. 
A  consequence  of  this  exchange  is  that  the  first  row,  which 
should  move  to  the  fourth  row  of  the  matrix,  is  now  moved  to 
the  sixth  position.  The  fourth  relative  address  therefore  of 
NOR  must  change  from  1  to  6.  The  algorithm  searches  the  NOR 
from  1  to  8  until  it  locates  the  relative  address  1,  which 
exchanges  with  the  relative  address  6. 

Similarly,  in  the  second  step,  column  3  of  the 
matrix  must  move  to  the  second  relative  address.  Therefore 
a  mutual  exchange  between  rows  2  and  3  takes  place.  In  the 
NOR  now,  a  search  takes  place  until  the  relative  address  2 


is  located.  This  occurs  in  the  eighth  position  and  therefore 
the  number  3  is  placed  at  the  eighth  position.  The  same 
process  is  repeated  until  all  the  rows  of  the  data  matrix 
are  rearranged  according  to  the  inverted  relative  addresses 
(NOR)  . 

The  choice  of  sorting  method  must  be  made  so  that 
the  expected  result  of  the  repeated  sorting  is  achieved.  In 
this  case  each  set  of  data  to  be  sorted  (the  data  of  a  column; 
is  not  independent  but  rather  is  bound  with  the  data  of  the 
other  columns  of  the  matrix.  Whenever  a  duplication  of  values 
appears  in  the  column  to  be  sorted,  these  values  must  not  be 
treated  equally  since  their  bound  with  the  values  of  the  neigh 
boring  columns  differentiates  them.  In  order  to  keep  the  orde 
of  the  neighboring  columns  unaltered,  the  equivaled  entries 
of  the  matrix  must  maintain  their  order  after  sorting.  The 
following  example  clarifies  this  concept.  Suppose  that  we 
have  the  matrix  (a)  and  we  repeatedly  sort  it  according  to 

013  111  102  011 

022  022  011  012 

012  012  012  022 

111  102  113  102 

102  013  022  113 

(a)  (b)  (c)  (d) 

columns  3,  2,  1;  considering  the  sequence  of  the  duplicate 
values  in  each  column,  The  resultant  matrix  in  Fig.  11  has 


the  desired  property.  Repeating  the  sane  sorting  but  not 
considering  the  sequence  of  the  duplicate  values,  the  result 
is  different,  as  illustrated  below: 

013  111  102  013 

022  102  012  022 

012  022  111  012 

111  012  013  111 

102  013  022  102 

(a)  (b)  (c)  (d) 

The  above  consideration  imposes  limitations  in 
the  selection  of  the  sorting  method  to  be  used.  Considering 
only  the  speed  and  the  memory  space  consumed  in  the  method 
selecting  process  is  not  sufficient.  The  method  selected 
must  also  maintain  the  existing  order  of  the  equivaled  ele¬ 
ments.  Such  a  method  is  the  tree  sort. 

C.  TRANSFORMATIONS 
1 .  Introduct ion 

A  more  valid  analysis  of  row  statistical  data  usually 
requires  a  series  of  transformations  in  order  to  change  the 
scale  of  the  measurements . 

Initially,  a  test  of  normality  of  the  data  is  executed 
to  confirm  if  a  parametric  method  of  statistical  analysis  can 
be  used.  If  the  data  to  be  analyzed  are  non-normal,  normality 
can  be  obtained  by  applying  appropriate  transformations  on 
them  [Ref .  12 ] . 


A  transformation  also  can  be  used  to  equalize  the 
variances  of  the  sample. 

a.  Fundamental  Transformations 

The  most  common  transformations  used  for  the 
purposes  mentioned  above  are  the  following. 


( 1)  Logarithmic  Transformation  (Xeperian  and 


Common) . 


X'  =  Log(X)  for  X  >  0  or 


X'  =  Log  (X+C)  for  (X+C)  >  0 


If  considerable  heterogeneity  in  numbers  is 
present,  the  variance  is  often  found  to  be  correlated  with 
the  mean  level  on  a  square  root  scale,  and  may  only  be  stabi 
lized  if  transformation  is  made  to  the  logarithmic  scale 


[Ref.  13]  . 


(2)  The  Inverse  Sine  or  Arcsine  Transformation. 


X'  =  Sin  x ( SQRT ( X) )  =  Arcsin ( SQRT ( X) )  if  0.  <=  X  <=  1. 


This  transformation  permits  an  equalization 
of  variances  when  the  data  are  proportions  or  ratios. 

(3)  The  Sauare  Root  Transformation. 


SQRT(X) 


This  transformation  is  used  when  the  vari¬ 
ances  of  the  samples  are  approximately  proportional  to  their 
mean,  or  when  the  data  follow  the  Poisson  distribution. 

( 4 )  The  Inverse  Transformation. 

X'  =  1/X  if  X  is  different  than  zero 

This  transformation  is  used  to  equalize  the 
variances  whenever  they  are  approximately  proportional  to 
x  ,  x  ,  . . . ,  (x:  mean) . 


X'  =  Sinh  1 ( SQRT ( X) )  =  Arcsine (SQRT (X) ) 


where 

Arcsine  (Z)  =  Log  (|z|  +  Z*Z  +1) 

( 6 )  Exponentiation  at  Tth  Transformation . 

T 

X'  =  X 

This  transformation  is  suggested  by  Snedecor 
and  Cohran  (1967)  for  variance  analysis  when  there  is  no 
additivity  of  variances  [Ref.  14). 

b.  Complex  Transformations 

Although  the  above  transformations  are  the  most 
commonly  used,  the  system  provides  an  ability  for  any  kind  of 


transformation  assigned  by  the  user  in  the  form  of  an  ex¬ 
pression  via  the  keyboard.  In  this  way,  not  only  is  a  trans¬ 
formation  of  the  column  obtained,  but  calculations  at  run  tim 
involving  intrinsic  functions,  arithmetic  operators,  con¬ 
stants  (integers  or  reals)  and  data  contained  in  the  data 
matrix,  can  be  performed  according  to  user  assigned  mathemati 
cal  expression.  Examples  of  such  expressions  are: 

•  SQRT [ 7 ] / [ 5 ]  •  ( LOG  [10  3/2)  *  2 

[9]  +  3.14 

•  S IN  [  5 ]  -  (-COS  [3]) "3 

The  number  of  the  column  must  be  enclosed  in 
brackets  in  order  to  be  identified,  while  the  symbol  is 

used  for  the  operation  of  exponentiation  to  avoid  use  of  two 
characters  as  an  operator. 

The  value  of  each  assigned  transformation  is 
considered  as  a  new  column  or  parameter  and  is  placed  at  the 
rightmost  of  the  columns  —  increasing  by  one  the  number  of 
columns  of  the  data  matrix. 

2 .  ’  Principle 

a.  Breakdown  of  the  Expression  in  Parts 

The  inserted  expression  is  read  as  a  unique 
character  string  and  is  broken  down  into  the  following  kinds 
of  characters  or  character  strings: 

•  Functions  and  corresponding  column  number  (e.g., 

TAN [2]) 

•  Column  number  (e.g.,  [5]) 


•  Real  number  or  integer 

•  All  the  above  with  negative  signs 

Operators  (+,  *,  /,  ~) 

.  "  ( » 

.  " )  " 

For  example,  the  expression  (COS [ 3] +2 . 7) / ( - [ 5 ] ;  '2-S 
is  broken  down  as  follows : 

( 

COS  [3] 

+ 

2.7 

) 

/ 

( 

-[5] 

2 

8 

In  this  format  the  elements  constitute  an  infix 
notation  format.  After  the  breakdown,  the  elements  are 
stored  in  a  two  dimensional  one  character  array  INF.  Three 
one  dimension  one  character  arrays  FUN,  NUM  and  CONS  are  used 
for  temporary  storage  of  the  functions  with  their  corresponding 
column  number  arguments,  column  numbers,  and  constants. 

Three  flags--TEST,  MARK  and  INDEX--are  used  to  signal  the 


existence  or  a  negative  value.  This  negative  va^ue  is  cer¬ 
tified  whenever  a  character  follows  an  "("  character. 

The  variable  BR  is  used  to  temporarily  store  a  "["  or  "]" 
character  which,  in  combination  with  the  flags,  permits  a 
column  number  to  indicate  that  the  datum  of  the  value  will 
be  used  in  the  expression  or  that  the  value  is  an  argument  of 
a  function. 


b.  Conversion  from  Infix  to  Postfix  Notation 

The  method  used  for  evaluation  of  the  expression 
requires  the  transformation  of  the  infix  expression  (which 
is  the  normal  form  used  by  mathematics)  into  postfix  notation 
A  postfix  notation  is  a  rearrangement  of  the 
characters  of  the  infix  expression  to  remove  the  ambiguity 
of  which  operator  is  performed  first  —  using  parentheses  to 
indicate  the  priority  of  the  operators.  For  example,  the 
expression  a+b*c  is  ambiguous  since  it  is  not  clear  if  the 
addition  or  the  multiplication  has  to  be  performed  first. 

This  ambiguity  requires  the  use  of  parentheses  to  specify  the 
operation  to  be  performed  first. 

In  a  postfix  notation,  all  the  information  re¬ 
quired  for  the  evaluation  of  the  expression  is  included  in 
it.  Moreover,  the  parentheses  are  not  required  any  more. 

Suppose  that  we  have  to  evaluate  the  expression 
a+b*c+ (d/e-f ) .  For  its  evaluation  two  facts  are  used  to 
determine  the  sequence  of  the  operations.  First  is  the ^ 
existence  of  the  parentheses  which  define  which  expression 


has  to  be  performed  first.  The  result  has  to  be  used  as  a  /i 

new  value  for  the  remaining  evaluation  of  the  expression.  ,jj 

Second,  the  precedence  of  the  operators.  Operation  of  the 
exponentiation  is  to  be  performed  first,  then  the  multiplica¬ 
tion  and  division  and  finally  the  addition  and  subtraction. 

Therefore,  in  the  expression  in  parentheses,  the  division 
has  to  be  performed  before  the  subtraction  while  in  the  part 
outside  of  the  parentheses,  multiplication  is  to  be  performed 
before  addition. 

The  same  expression  in  postfix  notation  is: 
abc*+de/f-+.  This  form  does  not  need  the  conventions  mentioned 
above,  in  order  to  be  evaluated.  Each  operator  simply  uses 
the  two  operands  preceding  it,  in  a  left  to  right  sequence. 

The  method  used  for  the  conversion  from  infix  to 
postfix  is  the  push-down  stack  for  the  storage  of  the  operators 
and  parentheses  of  the  expression. 

In  general  terms,  the  algorithm  used  is  as  follows: 

Each  character  of  the  expression  is  examined.  If  it  is  an 
operand  it  is  placed  directly  in  the  created  postfix  form. 

If  it  is  an  operand,  then  if  the  topmost  character  of  the 
stack  is  an  operator,  priority  comparison  takes  place.  If 
the  operator  of  the  stack  has  equal  or  higher  priority,  it 
is  popped,  and  placed  in  the  postfix  expression,  while  the 
other  is  pushed  into  the  stack.  If  the  priority  of  the  stack 
operator  is  lower,  the  other  is  pushed  into  the  stack.  If 


the  character  of  the  infix  expression  is  an  "(",  it  is  pushed 


into  the  stack,  while  if  it  is  a  ";  ",  the  topmost  operator  ts 
popped  and  placed  in  the  postfix  and  the  two  parentheses  are 
ignored.  Fig.  11  gives  a  pictorial  view  of  the  algcrithrr. 
described . 

In  order  for  the  procedure  to  be  included  in 
the  transformations  of  the  developed  software  package,  the 
following  considerat ions  must  be  taken. 

The  operands  can  be  positive  or  negative: 

•  Functions,  e.g.,  SQRT[7]  (square  root  of  the  column's 
seven  value) 

•  Column  number  enclosed  in  brackets,  e.g.,  [3]  (the  value 

of  column  three) 

•  Numerical  values  (real  or  integers). 

The  above  considerations  require  the  statement 
of  the  expression  in  character  form.  In  this  way,  the  several 
kinds  of  operands  can  be  distinguished  and  treated  appro¬ 
priately.  The  produced  postfix  expression  is  stored  in  a 
two  dimensional,  one  character  array. 

Suppose  that  we  have  the  infix  expression: 

(COS  (3]+2. 7)/(-  [5]  "2-8 


The  resultant  postfix  expression  is  illustrated  in  Fig.  12 
as  it  appears  stored  in  the  array  POST. 


Fig.  12.  Representation  of  the  Postfix  Expression 

c.  Evaluation  of  the  Postfix  Expression 

As  previously  mentioned,  evaluation  of  the  expres¬ 
sion  after  its  transformation  into  postfix  notation  has  been 
simplified. 

The  procedure  used  is  as  follows: 

a)  Scan  the  postfix  expression  and  push  into  the  stack 

the  encountered  operands  until  an  operator  is  encountered 

b)  Pop  the  two  topmost  operands  of  the  stack,  apply  the 
operator  to  them  and  push  the  result  into  the  stack. 

c)  Repeat  until  the  end  of  the  postfix  expression.  The 
example  given  in  Fig.  13  illustrates  the  concept. 

To  implement  the  above  procedure,  the  sign 

of  a  negative  number  has  to  be  considered,  and  be  distinguished 
from  a  operator.  This  task  is  served  by  representation 

of  the  postfix  expression  as  shown  in  Fig.  12. 


STACK 


OPERATION 


POSTFIX 


3 

3,5 

3,5,2 


3,10 


13 

13,10 

13,10,2 


13,5 

13,5,1 


13,4 
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OP1  OPERATOR  OP 2 


5 


3 


10 


3,5, 2, *,+,10,2,7,1, 
5,2,*,+,10,2,/,l, 
2, *,  +  ,10, 2,/ , 1 , 
*,+,10,2,/,l, 

2 


+  10 


/  2 


+,10,2,/ , 1 , 

10 , 2  ,  /  ,  1 , 
2  ,  /  ,  1 , 
/,!, 


1, 


5  -  1 


13  +4 


Fig.  13.  Evaluation  of  a  Postfix  Expression  Using  the 
Expression  of  the  Previous  Example: 
a+b*c+ ( d/e-f ) 


For  each  line  of  the  array  POST: 

•  If  the  first  character  is  a  letter,  or  number,  or  "[", 
the  element  is  treated  as  an  operand. 

.  If  the  first  character  is  "  +  ",  it  is 

treated  as  an  operator. 

•  If,  however,  the  first  character  is  then  the  second 

character  is  examined. 

If  it  is  a  letter,  number  or  "[",  the  element  is 
treated  as  a  negative  operand. 

If  it  is  a  "  ",  then  it  is  the  minus  operator. 

Each  of  the  three  kinds  of  operands  is  identified, 
stored  in  a  one  dimension  array  and  evaluated  appropriately. 
The  numeric  characters  must  be  decoded  before  an  arithmetic 
operation  is  applied  to  them. 

D.  RANDOMIZATION 

1.  Introduction 

The  system  provides  a  randomization  ability  of  the 
data,  needed  in  the  following  cases: 

•  Many  observations  (data)  are  collected  as  a  function  of 
time.  In  order  to  avoid  any  correlation  influencing  the 
way  this  data  is  collected,  we  can  randomly  burst  the 
order  of  the  rows  of  the  data  matrix. 

•  When  multiple  sorting  is  desired  and  some  of  the  columns 
are  already  sorted.  This  fact  will  have  negative  results 
in  the  performance  of  the  sorting  method  used  by  the 


system  (tree-sort)  to  obtain  the  multiple  sorting  ,see 
Section  II.B)  .  In  cases  where  the  amount  of  data  is 
large,  it  is  preferable  for  randomization  of  the  sorted 
columns  to  take  place  before  multiple  sorting. 

2 .  Principle 

The  randomization  of  the  data  is  obtained  by  reading 
it  as  they  are  ordered  and  rewriting  it  according  to  a  sequence 
of  random  numbers  produced  by  the  function  RANDAN. 

The  principle  used  is  a  congruential  method  of  seg¬ 
menting  the  modular  arithmetic,  described  by  K.D.  Senne  (1974) 
and  the  algorithms  are  given  by  D.  Guinier  (1984)  [Ref.  3] . 

For  all  m  bit  generators,  a  sequence  of  integers  L(n) 
in  the  interval  {0,2**m-l}  is  calculated.  The  desired  real 
variables  Xn  are  obtained  from  the  L(n) 's.  The  next  sequence 
of  the  L(n+1) 's  are  calculated  by  dividing  the  L(n) 's  by 
2**m  by  the  formula:  L(n+1)  =  (A*L(n)+B)  mod  2**m. 

M.  Abramowitz  and  I. A.  Stegun  (  1965)  have  proven  many- 
successful  combinations  for  A,  B  and  m,  e.g.,  A  =  R*2**S+/-1, 
where  S  is  equal  or  greater  than  2  and  B  =  0 . 

The  multiplier  R  is  selected  so  that  the  number  of 
significant  bits  in  R*2**S+/-1  is  approximately  m.  L(n+1) 
is  the  next  cycle.  There  is  no  correlation  between  adjacent 
numbers:  L's,  ( Ll , L2 , L3 , . . . , Lq-1 , Lq)  . 

If  S  =  3,  let:  A  =  8*R-1;  or  any  m  bits  A  in  which 
the  last  three  bits  equal  1. 

The  L(n) 's  can  be  segmented  into  q  integer  parts  by 


the  arithmetic  expression  for  any  m  bit  number: 


L(n)  =  f ( Ll , L2 , L3 , . . . , Lc-1 ,Lc) ,  that  is: 
L (n)  =  Ll *  2  *  * (m* ( q-1 ) / q ) 

+  L2*2**(m*(q-2)/q) 


+  La  *  2  *  *  0 

and  A  can  be  segmented  in  the  same  way: 

A  =  f (Al , A2 , A3 , . . . , Aq-1 ,Aq) ,  that  is: 

A  =  Al*2***m* (q-1) /q) 

+  a2  *2  *  * (m* ( q-2 ) /q) 

+  .  .  . 

+  Aq*2**0 

Set  L(n+1)  =  A*L(n)+B,  that  is,  if  B  =  0:  L(n+1)  =  A*L ( n) 

A* (n)  =  (Al  *Ll  ) *2**(2*m*(q-l)/q) 

+  (Al  *L2+A2*L1  ) *2** (2*m*(q-2)/q) 

+ .  .  . 

+  (Aq-1) *Lq+Aq*Lq-l) *2** ( 2 *m  /q) 

+  Aq  *Lq  *2**  0 

The  previous  operations  are  performed  in  Part  I  of 
Algorithm  I : 


k=q 

DO  WHILE  (k.GT.O) 
i=0 

p=0 
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PART  1 ;  Calculation  of  products  A*L(n) : 

For  any  L(n) 

DO  WHILE  (i.LE.q-k) 
p  =  p+Ai+k*L (n) q-1 
i  =  i+1 
END  DO 

PART  2 :  Actualization  of  the  L(n) 's  in  L(n+1) 's,  by  performing 
the  operation  modulo  2.**(m/q]  : 

p  =  p+c 

c  =  p  / (2 . ** [m/q] ) 

L(n+l)i  =  p-c* ( 2 . ** [m/q] ) 
k  =  k-1 
END  DO 

After  we  take  the  modulus  relative  to  2**m,  for  the 
next  cycle  of  Ln ' s ,  the  expression  is  given  by  Part  2  of 
Algorithm  I. 

When  we  take  the  modulus  2.**m  of  the  previous 
products  A*L(n) ,  it  gives: 

L ( n+1) = {  ( Al*Lq+A2  *Lq- 1+ . . . +Aq*Ll ) mod 2  ** (m/q)  } 2  ** ( ( 2 *m/q) * [q/2 ] ) 

+ (A2*Lq+A3*Lq-l+. . .+Aq*L2) *2** ( ( (2*m/q) * ( [q/2 -2) ) 

+  .  . . +Aq*Lq*2  *  *0  and, 

-  the  second  half  of  the  last  term  is:  L(n+l)c, 

-  the  remainder  of  the  last  term  +  the  second  half  of 
the  next  to  the  last  term  is:  L(n+l)q-l,. 

-  the  remainder  of  the  next  to  the  last  +  the  second 
half  of  the  term  just  before  the  next  to  the  last 
term  is:  L(n+l)q-2,  etc. 


Ak  and  Lk  are  defined  for  k 


1  to 


ieces  at  the 


beginning  of  the  sequence. 

The  maximum  precision  requires  2*m/q  bits  for  the 
update  plus  carry  over  bits  to  add  a  numbers  of  length  2*m/q 
and  a  number  of  length  m/q,  i.e., 

p  =  [ log 2 { q*  * ( ( 2  *m/q) -l**2)+2**( m/q) -1 } ] +1  bits. 

The  number  q  of  possible  pieces  for  a  36  bit  pseudo¬ 
random  number  (m  =  36)  is:  2,  3,  6,  9,  12,  18  or  36.  We 
take  q  =  6  for  a  15  bit  positive  integer  INTEGER*2,  up  to 
2**15-1,  i.e.,  32767.  The  cycle  length  of  the  generator 
has  been  tested  greater  than  10**7. 

The  sequence  of  the  x's  is  obtained  from  the  following 
algorithm. 

Algorithm  II 
i=0 
x=0 

DO  WHILE  (i.LT.q) 
i=i+l 

x=x+L (n  +  1) i * 2 . *  * ( — [m/q] *i) 

END  DO 

and  the  next  L(n) 's  will  be  the  actual  L(n+1) 's  for  the  next 
sequence.  The  initial  sequence  is  forced  into  a  flag  if 
it  is  different  than  zero  (IND). 
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Ill . 


DIRECTIONS  FOR  USE  OF  THE  I DAMAN 


A.  INTRODUCTION 

The  system  I DAMAN  is  an  interactive  and  conversational 
system  intended  to  be  used  by  any  user  regardless  of  his/her 
level  of  programming,  and  without  any  specific  knowledge  or 
training  requirements.  For  this  reason  an  effort  was  made 
for  the  system  to  be  self-directed  via  meaningful  screen 
displayed  prompts. 

The  IDAMAN  operates  through  five  environments  of  operation. 
The  transition  from  one  environment  to  another  is  obtained 
by  the  carriage  return  (<CR>) .  In  each  environment  appro¬ 
priate  prompts  and  menu-like  tables  are  displayed  directing 
the  use  of  the  system.  The  five  environments  are  the  following 

•  MODES  OF  OPERATION 

•  COLUMN  INFORMATION 
ROW  INFORMATION 

•  COLUMN  MODIFICATION 
ROW  MODIFICATION 

B.  MANAGING  DATA  FILES 

The  data  is  stored  in  direct-access  unformatted  files  in 
mass  storage.  These  files  have  names  of  the  form:  FORxxx.DAT; 
where  xxx  is  a  key  number  for  the  particular  file.  During 
the  manipulation  of  the  data,  the  system  requests  the  key 
number  of  an  existing  file  on  which  the  data  to  be  manipulated 


is  stored  or  a  new  one  on  which  the  manipulated  data  will  be 
stored.  This  request  is  done  by  the  prompt: 


Assign  the  'OLD'  direct  access  file: 

Key(xxx)  For  File  FORxxx.DAT  number  y,  (nr.n=069i  : 


and  the  user  has  to  assign  a  numeric  or  alphanumeric  three 
digit  key.  The  number  v  indicates  the  logical  unit  number 
used  for  this  file  (in  the  example  given  by  the  prompt,  the 
key  number  is  069) . 

C.  USER  ERROR  PREVENTION 

The  program  has  been  designed  in  such  a  way  that  the 
most  common  user  errors  can  be  prevented  by  an  error  message 
reaction  of  the  program  instead  of  a  run  time  compiler  error 
After  the  appearance  of  the  message,  the  program  shifts  to 
the  appropriate  position  for  reassignment  of  the  erroneously 
given  information. 

D.  SELECTING  MODE  OF  OPERATION 

Access  of  the  first  environment  is  obtained  by  the  execu 
tion  of  the  program  and  permits  the  selection  of  one  of  the 
available  modes.  The  selection  of  the  desired  mode  is  ob¬ 
tained  by  assigning  the  corresponding  number  of  the  mode  as 
it  appears  in  the  following  table: 


AVAILABLE  MODES 


Creation  of  new  header  :1 
Display  of  existing  header  :2 
Modification  of  existing  header  :3 
Merging  of  two  existing  headers  :4 
Answer  : 


E.  THE  FUNCTION  OF  MODES  AND  HOW  TO  DEAL  WITH  THEM 
1 .  Creating  a  New  Header 

The  creation  of  a  new  header  is  done  by  selecting 
mode  1.  Upon  entering  this  mode  the  following  prompt  appears 
on  the  screen: 


Name  of  header's  file  : 


and  requests  the  assignment  of  any  24  character  string  which 
will  be  used  as  the  file  name  of  the  sequential  file  in 
which  information  of  the  created  header  will  be  stored. 

After  file  name  assignment,  the  prompt: 


Column  information:  1 
Row  information  :  2 
Answer  : 


requests  the  environment  to  be  used  next.  By  selecting  1, 
the  program  enters  the  environment  in  which  information 
regarding  the  columns  of  the  header  will  be  assigned,  while 
2  permits  assignment  of  information  related  to  the  rows  of 


the  header. 


2 .  Assigning  Information  for  the  Colur.r.s 

Upon  entering  the  environment  for  column  informs 
the  following  menu-like  table  appears  on  the  screen: 


SELECTION  TABLE  FOR  COLUMN  INFORMATION 


Number  of  columns  (mandatory) 
Mnemonic  names 
Transformations 
Tracing  extrema 
Multi-sorting  column  guides 
Randomization  of  data 
Column  ranking 
Display  column  information 
Modification  of  column  info 
Data  retrieval 
Display/print  of  data  file 


The  selection  of  each  entry  of  the  table  permits  the  assign¬ 
ment  of  the  corresponding  information.  At  the  end  of  each 
assignment,  the  program  returns  for  new  column  information. 
The  exit  of  this  environment  is  obtained  by  <CR>.  The 
process  for  each  assignment  is  as  follows, 
a.  Number  of  Columns 

Selecting  this  entry  is  mandatory  for  the  opera¬ 
tion  of  the  program.  The  following  prompt  appears  on  the 
screen : 


Assign  number  of  columns  : 


The  only  action  of  the  user  is  the  assignment  of  the  number 
of  columns  of  the  data  matrix.  The  maximum  number  of  columns 


permitted  by  the  present  design  of  the  program  is  123--which 
can  easily  be  changed  by  a  simple  modification. 

b.  Mnemonic  Names 

The  selection  of  this  entry  of  the  table  permits 
the  assignment  of  mnemonic  names  to  columns  of  the  data 
matrix.  The  prompt  appearing  on  the  screen  this  time  is: 

Assign  column  number  (<CR>  to  RETURN)  : 

requesting  the  number  of  the  column  for  the  next  mnemonic 
name  to  be  assigned.  After  the  assignment  of  the  column 
number,  the  prompt  appearing  is: 

Assign  mnemonic  name  : 

requesting  the  name  for  the  assigned  column  number.  The 
assignment  of  column  names  is  not  necessarily  done  in  ascend¬ 
ing  order  of  column  numbers;  neither  is  it  necessary  to  assign 
names  to  all  columns.  The  program  sorts  the  assigned  column 
numbers  in  order,  to  appear  in  the  display  of  the  header's 
data  in  the  proper  order.  ^CR>  terminates  the  assignment  of 
names . 

c.  Transformations 

IDAMAN  uses  this  function  to  permit  any  number 
and  kind  of  mathematical  expression  involving  values  of  the 
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data  matrix  to  be  assigned.  In  this  way  a  transformation  of 
the  value  according  to  the  assigned  expression  is  obtained. 
The  value  of  each  expression  (calculated  for  each  row)  is 
considered  as  a  new  column  of  the  header  and  of  the  data 
matrix.  The  result  of  the  transformation  is  attached  to  the 
rightmost  end  of  the  columns  as  a  new  column.  The  total 
number  of  the  original  columns  plus  the  number  of  columns 
created  by  transformations  should  not  exceed  the  maximum 
permitted  number  of  128. 

The  function  of  the  transformations  is  better 
explained  by  the  following  example.  Suppose  that  the  initial 
data  matrix  to  be  transformed  is: 


•  1 


2.2 

5.3 

9.0 

0  .  3 

3.0 

1.2 

4.0 

1.5 

i — 1 

i — 1 

6.7 

16.0 

23.5 

12 . 3 

3.0 

1.0 

3.5 

0.0 

1.0 

0.0 

1.0 

4  .4 

5.0 

4.0 

8 . 7 

with  NC0L=4  NR0W=6  and  the  assigned  transformation  is 
SQRT [ 3 ] /2 .  This  means  that  the  column  to  be  transformed  is 
the  third,  and  the  transformation  will  be  the  square  root 
of  its  value,  and  then  dividing  the  result  by  2.  The  new 


data  matrix  will  have  NC0L=5  and  will  be: 


The  form  of  the  assigned  transformation  can  be 
any  algebraic  expression  involving  values  of  the  data  matri 
any  real  or  integer  constant  value,  and  values  resulting 
from  the  application  of  the  following  functions,  assigned  b 
its  number  column: 

•  LOGC  Common  logarithm. 

•  LOG  The  natural  logarithm. 

EXP  Exponential. 

•  ABS  Absolute  value. 

•  SIN  Sine. 

•  COS  Cosine. 

•  TAN  Tangent. 

ASIN  Arc  sine. 

•  ACOS  Arc  cosine. 

•  ATAN  Arc  tangent. 

•  SINH  Hyperbolic  sine. 

•  COSH  Hyperbolic  cosine. 

•  TANH  Hyperbolic  tangent. 

•  SQRT  Square  root . 

•  ASINH  Arc  sine  hyperbolic. 
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The  colunn  number  for  which  the  value  will  be  substituted 
for  in  calculating  the  expression,  must  v-e  enclosed  in 
brackets  ([])  in  order  to  be  recognized  by  the  program.  The 
notion  of  exponentiation  is  shown  by  the  character,  All 

functions  assigned  in  an  expression  must  be  in  upper  case 
letters  in  order  to  be  recognized  by  the  program.  The  follow¬ 
ing  are  some  examples  of  expressions  that  can  be  assigned  as 
transformations  of  columns: 

[31+3.14 

•  SQRT [ 7 ] 

(SIN [5] +3. 14) "2 

•  LOG [ 1 0 ]  —  (  [12] * ( -SQRT  [  2 ] )  ~  3 

•  ( (COS [151+3.14)/ [4] ) *5 .23 

At  the  end  of  the  expression (s)  assignment,  the  file  name 
in  which  the  data  to  be  transformed  are  stored,  must  be 
assigned . 

d.  Tracing  Extrema 

By  this  function,  IDAMAN  permits  the  assignment 
of  a  range  of  values  in  which  all  existing  values  in  the 
data  matrix  will  be  used  for  tracing.  This  area  is  defined 
by  its  lower  and  upper  boundaries  (extrema) .  Upon  selecting 
the  corresponding  entry  of  the  selection  table,  the  program 
requests  the  name  of  the  file  on  which  the  data  are  stored, 
in  order  to  determine  the  existing  maximum  and  minimum  values 
of  each  column.  These  values  are  used  for  tracing  in  the 
case  that  not-user  defined  extrema  are  desired.  The  extrema 
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are  displayed  during  assignment  to  facilitate  the  work, 
next  assignment  is  the  type  of  extrema  that  will  be  used 
That  is  the  purpose  of  the  prompt: 


Imposed  extrema  for  tracing 
Original  extrema 


Selecting  0,  the  program  automatically  will  use  the  minimu: 
and  maximum  values  of  each  column  as  tracing  extrema. 
Selecting  1,  the  user  is  requested  to  assign  the  column 
number  for  the  tracing  extrema,  by  the  following  prompt: 


Assign  column  number  (<CR>  to  RETURN) 


The  prompt  for  exrema  assignment  continues 


MIN  ( found)  : 

Imposed 

MAX  ( found)  : 

Imposed 

The  program  displays  the  existing  minimum  and  maximum  values 
of  each  column.  The  user  thus  assigns  his/her  different 
imposed  extrema. 

e.  Multi-sorting  Column  Guides 

Multi-sorting  column  guides  allow  the  system  to 
assign  a  series  of  columns  according  to  which  multiple  sorting 
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For  details  on  multiple  sorting,  see 


will  take  place. 

Section  II. B.  The  assignment  of  the  columns  that  will  be 
used  as  guides  for  the  sorting  can  be  done  by  the  column 
numbers  or  by  their  mnemonic  names.  The  following  prompt 
requests  the  user  to  assign  the  desired  mode  of  assignment: 


By  column  numbers  :1 
By  mnemonic  names  :2 
Answer  : 


By  selecting  1,  the  following  prompt  will  appear: 


Assign  no  (s)  .  of  columns  : 


The  assignment  of  sorting  guides  can  be  a  series  of  column 
numbers  separated  by  a  "comma"  or  two  numbers  separated  by 
a  "colon"  meaning  that  all  the  numbers  contained  therein 
will  be  used  as  multiple  sorting  guides.  If,  for  example, 
18,13,5  is  assigned,  the  data  will  be  sorted  according  to 
column  18,  then  according  to  column  13,  and  finally  according 
to  column  5.  If  5:8  is  assigned,  the  data  will  be  sorted 
according  to  column  5,  then  according  to  column  6,  then 
column  7,  and  finally  column  8.  If  the  assigned  series  of 
columns  exceeds  one  screen  line,  the  assignment  can  continue 
to  the  next  screen  line  by  using  a  "comma"  as  a  continuation 
mark.  ,  In  the  case  that  assignment  of  sorting  guides  using 
mnemonic  names  is  desired,  the  prompt: 


Assign  column  mnemonic  names  : 


i 

will  provide  it.  In  this  case  the  names  must  be  assigned  one 
in  each  screen  line.  After  printing  the  name  of  the  column, 
j  the  carriage  return  (<CR>)  will  enter  the  name  in  the  computer 

while  the  cursor  will  move  to  the  next  screen  line  for  the 
next  name  assignment. 

|  f.  Randomization  of  Data 

By  this  operation,  the  system  permits  randomization 
of  the  data  for  improvement  of  the  sort  method  performance 
j  or  for  elimination  of  the  time  effect.  The  only  assignment 

for  this  operation  is  the  name  of  the  file  on  which  the  data 
are  stored.  This  assignment  is  done  as  soon  as  the  prompt 
requesting  the  name  of  the  file  appears  on  the  screen  (see 
Section  III .B)  . 

g.  Column  Ranking 

A  new  arrangement  of  the  columns  assigned  by  the 
user  is  permitted.  This  assignment  can  be  done  by  column 
numbers  or  column  names.  Upon  selection  of  the  operation, 
the  prompt: 


By  column  numbers  :1 
By  mnemonic  names  :2 
Answer  : 


requests  the  desired  assignment  mode.  If  the  mode  is  the 
first  one,  the  prompt: 


72 


Assign  no(s)  of  columns: 


requests  the  assignment  of  a  series  of  column  numbers  which 
will  be  used  for  the  new  ranking.  This  assignment  is  done  as 
described  in  Section  III.B.  The  assignment  of  columns  with 
mnemonic  names  is  also  done  as  in  Section  III.E.2.e,  after  the 
prompt : 


Assign  ranking  by  sequence  of  names  : 


appears  on  the  screen. 

The  operation  of  ranking  creates  a  new  data  file. 
The  number  of  columns  used  for  the  ranking  assignment  is 
the  number  of  columns  of  the  new  data  matrix. 

h.  Display  of  Column  Information 

Display  of  column  information  shows  assigned 
information  related  to  the  columns  of  the  header. 

i.  Modification  of  Column  Information 

By  this  operation,  the  program  passes  to  the 
environment  for  modification  of  information  related  to  the 
columns.  This  is  a  modification  of  information  assigned  by 
the  current  run  of  the  program.  As  mentioned  above,  the 
modification  of  a  header  created  by  another  run  and  existing 
in  a  file,  is  done  by  another  mode  of  the  program.  Upon 
selecting  the  modification  operation,  the  table: 
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MODIFICATION  SELECTION  TABLE 


Number  of  columns  :1 
Mnemonic  names  :2 
Tracing  extrema  : 3 
Sorting  guides  :4 
Rank  of  columns  :5 
Answer  : 


Old  name  : 

Assign  new  name  : 

facilitates  the  modification. 

(3)  Tracing  Extrema.  The  prompt: 

Assign  column  number  : 

requests  the  number  of  the  column  for  which  the  tracing 
extrema  will  be  modified  and  in  following  the  prompts: 

Old  MIN  : 

Assigns  new  MIN  : 

Old  MAX  : 

Assign  new  MAX  : 

permits  the  modification  of  the  displayed  old  extrema. 

(4)  Sorting  Guides.  Selecting  modification  of 
the  multi-sorting  column  guides,  the  old  ones  (column  numbers 
or  mnemonic  names)  are  displayed  initially,  and  then  the 
prompts : 

Assign  no(s)  of  columns  : 

or 

Assign  mnemonic  names  : 
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requests  new  column  assignment  by  numbers  or  mnemonic 
names . 

(5)  Rank  of  Columns.  Modification  of  the  rankin 
assignment  is  similar  to  modification  of  multi-sorting  guides 
The  difference  is  that  the  number  of  columns  must  be  modified 
before  the  modification  of  the  ranking  assignment  in  order 
to  be  consistent  with  the  initial  data  matrix, 
j .  Data  Retrieval 

By  this  operation,  the  program  searches  the  data 
file  for  a  specific  value  assigned  by  the  user  or  for  a 
missing  value  represented  by  a  "gold"  value,  and  informs  the 
user  about  them  as  explained  below.  The  process  for  the 


assignment  of  this  operation  of  the  program  is  as  follows: 


Name  of  the  existing  data  file  : 


requests  the  key  number  of  the  data  file  which  is  going  to 
be  searched.  The  next  prompt: 


Assign  device  (or  file)  : 


permits  the  user  to  assign  where  he/she  desires  to  receive 
information  (terminal  or  file) .  The  amount  of  file  to  be 
searched  is  also  assigned  by  the  user  with  determination  of 
columns  and  rows  of  the  data  matrix.  This  is  done  after  the 
appearance  of  prompts: 


Assign  no(s) .  of  columns  : 

and 

Assign  no(s).  of  rows  : 

The  assignment  can  be  done  by  the  symbol  meaning  "all", 

by  any  alphabetic  character,  by  sequence  of  column  or  row 
numbers  separated  by  a  comma  (e.g.,  2,5,36)  which 

determines  specific  columns  and  rows,  or  by  two  numbers 
separated  by  a  colon  which  determines  all  columns  or 

rows  included  between  the  two  numbers.  The  prompt  that  follows 

Data  to  be  retrieved  (real  or  "gold")  : 

permits  the  assignment  of  the  real  value  to  be  searched. 

The  letter  "g"  or  "G"  determines  that  the  program  must 
search  for  missing  values  which  are  represented  by  the 
number  12345.678  or  any  number  that  can  be  assigned  by  the 
user  with  the  next  prompt: 

Change  or  RETURN  : 

The  data  provided  by  the  program  after  completion  of  the 
search  is  the  Index  (sequence  number  of  the  element  in  the 
matrix) ,  the  column  number,  the  row  number  and  the  value. 


k.  Display/Print  of  Data  File 

For  the  data  file  to  be  displayed,  information 
regarding  its  name,  the  device  on  which  it  will  be  printed 
or  displayed,  the  numbers  of  columns  and  rows  that  will  be 
printed  or  displayed  are  requested  as  in  Section  HI.E.l.e 
The  format  of  the  data  values  is  also  the  object  of  user's 
specification.  It  follows  the  prompt: 


The  normal  format  :  nnnnnnnn . nnnnnn 

To  modify  it  assign  your  format  (ex.nnn.nnn)  •- C R >  : 


which  gives  the  normal  format  (F14.6  i.e.,  14  digits  —  6 
decimal)  of  the  display  or  print.  If  modification  is  desire 
an  example-like  assignment  can  be  done  as  shown  by  the 
prompt's  example  using  any  keyboard  character. 

3 .  Assigning  Information  for  the  Rows 

The  function  of  the  program  in  the  row  information 
environment  is  similar  to  that  of  column  information.  Upon 
entering  this  environment  the  following  menu-like  table 
appears  on  the  screen: 


SELECTION  TABLE  FOR  ROW  INFORMATION 


. 

V. 

V 

Number  of  rows  (obligatory) 

Mnemonic  names 

4 

Row  suppression 

Row  rejection 

Row  ranking 

Display  row' information 
Modification  of  row  info 

Data  retrieval 

.« 

Display/print  of  data  file 

Answer 

The  process  for  the  assignment  of  each  information 
is  as  follows: 

a.  Number  of  Rows 

The  number  of  rows  is  assigned  when  the  prompt: 


Assign  number  of  rows  : 


appears  on  the  screen  and  can  be  up  to  2048. 
b.  Mnemonic  Names 

For  the  rows  of  the  data  matrix,  mnemonic  names 
can  be  assigned  for  each  individual  row  or  for  a  user  deter 
mined  set  of  rows.  The  desired  kind  of  assignment  is  deter 
mined  as  soon  as  the  prompt : 


Row  by  row 
By  set  of  rows 
An swer 


appears  on  the  screen.  For  the  assignment  of  row  by  row 
names,  the  number  of  rows  has  to  be  given,  followed  by  the 
name  just  as  requested  by  the  prompts: 


Assign  row  number  (<CR>  to  RETURN) 
Assign  mnemonic 


For  assignment  of  names  by  sets  of  rows,  the  row  numbers 
determining  a  set  must  be  given  by  the  user  right  after 
the  set  of  the  following  prompts  appears  on  the  screen: 
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Common  name  set  : 

From  row  : 

To  row  : 

Name  : 

The  number  of  common  name  sets  is  automatically  given  by  the 
program.  Termination  of  assignment  is  obtained  by  hitting 
<CR>  instead  of  a  row  number. 

c.  Row  Suppression 

The  row  suppression  operation  is  a  physical 
suppression  of  rows  of  the  data  matrix.  Assignment  of  the 
rows  to  be  suppressed  can  be  done  either  by  the  row  number 
or  by  the  common  name  of  the  set.  In  this  case,  all  the 
rows  of  the  set  will  be  suppressed.  The  selection  of  mode 
follows  the  prompt: 

By  number  of  rows  : 

By  row  set  name  : 

Answer  : 

In  both  cases,  assignment  of  the  data  file  to  be  suppressed 
must  be  made  as  in  Section  III.B.  Assignment  of  row  numbers 
is  done  after: 

Assign  no(s)  of  rows  : 

by  printing  the  individual  row  numbers  separated  by  a  comma 
(e.g.,  4,6,7)  or  by  a  set  of  rows  determined  by  two  numbers 


separated  by  a  colon  (e.g.,  5:10)  .  Both  sorts  of  assignments 
can  be  done  consecutively.  For  example,  the  suppression 
assignment  1,2,3,4,8,11,16:20  will  cause  suppression  of  the 
rows  1,2,3,4,8,11,16,17,18,19,20.  If,  after  this  assignment, 
a  display  of  row  information  is  requested  and  the  number  of 
rows  before  suppression  was  30,  information  appearing  on  the 
screen  will  be  as  follows: 


ROW  INFORMATION 


NUMBER  OF  ROWS 


SUPPRESSIONS 


Suppression 


From  Row 


To  Row 


The  suppression  assignment  by  a  common  name  set 
of  rows  is  done  simply  by  assigning  the  name  of  the  set  after 
the  prompt: 


Suppression  : 
Set  name  : 


d.  Row  Rejection 

By  this  operation  rows  of  a  data  matrix  can  be 
assigned  which  are  to  be  excluded  from  a  calculation.  The 


determination  of  those  columns  can  be  done  by  their  numbers, 
which  will  be  stored  in  a  sequential  file.  The  name  is 
defined  by  the  user  as  the  following  prompts  appear  on  the 
screen : 

Assign  sequential  file  for  rejected  values 

Key  (xxx)  For  File  FORxxx.DAT  number  n,  (nnn=076)  : 

Assigned  rejected  rows  for  calculus  : 

Assign  no(s) .  of  rows  : 

e.  Row  Ranking 

The  row  ranking,  like  column  ranking,  permits  the 
assignment  of  the  order  by  which  the  rows  of  the  data  matrix 
will  be  arranged.  The  assignment  is  done  by  the  number  of 
the  rows  after  the  prompt: 

Assign  no(s).  of  rows  : 

and  the  names  of  the  old  and  new  files  (see  Section  III.B) . 

f.  Display  Row  Information 

The  selection  of  this  table  of  the  entry  simply 
displays  the  assigned  row  information  without  any  other  user 
intervention . 

g.  Modification  of  Row  Information 

This  operation,  as  in  the  column  information 
environment,  permits  modification  of  assigned  information 
related  to  rows  of  the  data  matrix,  by  the  current  run  of  the 


program.  In  general  the  function  of  the  program  in  this 
environment  is  similar  to  that  for  row  modification.  The 
menu  of  the  available  modifications  is  the  following: 

MODIFICATION  SELECTION  TABLE 


Number  of  rows  :1 
Mnemonics  by  row  numbers  :2 
Mnemonics  by  series  of  rows  :3 
Suppression  :4 
Rank  of  rows  :5 
Answer  : 


(1)  Number  of  Rows.  The  modification  of  the 
number  of  rows  is  simply  a  new  assignment  of  the  desired 
rows  following  the  prompts: 

Old  number  of  rows  : 

Assign  new  number  : 

(2)  Mnemonics  by  Rows.  This  operation  permits 
modification  of  mnemonic  names  assigned  individually  for  each 
row  of  the  data  matrix.  The  row  number  and  name  are  required 
to  be  given  after  the  prompt: 

Assign  column  number  : 

and  then  the  new  name  appears  after  the  prompt: 

Old  name 

Assign  new  name  : 


83 


(3)  Mnemonics  by  Series  of  Rows.  In  this  operatic 
the  program  permits  modification  of  the  set  of  rows  with  a 
common  name  or  modification  of  the  name  of  the  set.  The 
desired  modification  is  determined  with  the  assistance  of 
the  prompt: 


Series  modification  :1 
Name  modification  :2 
Answer  : 


If  modification  of  the  series  of  rows  with  a  common  name  is 
desired,  .the  number  of  the  series  (set)  must  be  determined 
after  the  prompt: 


Assign  series  number  : 


and  the  old  series  is  displayed  on  the  screen  to  facilitate 
the  new  assignment: 


Old  series 
From  row 
To  row 


while  at  the  same  time  the  prompt: 


Assign  new  series 
From  row 
To  row 


permits  assignment  of  the  new  specification  of  the  series. 

If  modification  of  the  common  name  of  the  set  is  desired,  the 
prompt : 

Assign  series  number  : 

requests  the  number  of  the  set  to  be  modified.  Then  the  old 
mnemonic  appears  on  the  screen  together  with  the  request  for 
new  mnemonic  name  assignment: 

Old  mnemonic  : 

Assign  new  mnemonic  : 

(4)  Suppression .  As  mentioned  in  Section  III.E.3.C 
the  suppressions  automatically  have  sequence  numbers 
attached  to  them.  Modification  of  the  suppressions  is  done 
by  first  assigning  the  suppression  sequence  number  requested 
by  the  prompt: 

Assign  suppression  number  : 

Modification  of  the  suppressed  rows  is  facilitated  by  the 
display  of  the  old  suppression  specification  requesting  the 
new  assignment: 


(5)  Rank  of  Rows.  Modification  of  row  ranking 
is  executed  by  the  following  prompt: 

Old  ranking  : 

Assign  no{s)  of  rows  : 

h.  Data  Retrieval 

This  is  simply  another  place  in  the  program  where 
the  retrieval  of  data  can  be  obtained  in  exactly  the  same 
way  as  in  Section  III.E.2.j. 

i.  Display/Print  of  Data  File 

This  is  an  alternative  position  for  display  or 
print  of  the  data  file,  executed  the  same  way  as  in  Section 
III . E . 2 . k . 

2 .  Displaying  an  Existing  Header 

This  is  the  second  mode  of  operation  of  the  program. 
It  simply  displays  either  the  column  or  row  information  of  a 
header  created  by  a  previous  run  of  the  program.  As  has 
been  mentioned,  information  of  a  created  header  is  stored 
in  a  sequential  file  in  secondary  storage.  This  file  is 
automatically  opened  by  the  program.  Data  are  read  and 


displayed  on  the  screen  by  the  simple  assignment  of  the  name 
of  the  header's  file  requested  by  the  prompt: 


Name  of  header's  file  : 


The  next  required  assignment  is  the  determination  of 
column  or  row  information  display: 


Column  information 
Row  information 
Answer 


Exit  of  the  mode  is  obtained  by  <CR> . 

3 .  Modifying  an  Existing  Header 
In  this  mode,  the  modification  of  a  header  created 

by  a  previous  run  of  the  program  can  be  obtained  by  simply 
assigning  the  name  of  the  header's  file. 

4 .  Merging 

With  this  mode  of  operation,  a  merging  of  two  data 
matrices  and  combination  of  their  corresponding  headers  is 
obtained.  This  operation  can  be  executed  in  the  horizontal 
(column  merging)  or  vertical  (row  merging)  sense;  in  other 
words  the  matrices  can  be  merged  side  by  side  or  one  over  the 
other.  Horizontal  merging  is  only  permitted  by  the  program 
if  the  two  matrices  have  the  same  number  of  rows  while  vertical 
merging  is  permitted  if  they  have  the  same  number  of  columns. 
The  resultant  headers  in  such  an  operation  are  as  follows: 
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Column  names:  If  the  same  column  has  a  mnemonic 

name  in  both  headers,  then  the  name  of 
the  first  header  (upper  matrix)  is  kep 
as  the  column  name.  Otherwise  the 
unique  name  in  either  header  is  kept 
as  the  column  name. 

Tracing  extrema:  If  tracing  extrema  are  assigned  for 
the  same  column  in  both  headers ,  then 
the  minimum  of  the  two  minima  and  the 
maximum  of  the  two  maxima  of  the 
columns  are  kept  as  tracing  extrema 
for  the  column.  Otherwise  the  unique 
minimum  and  maximum  values  are  kept  as 
tracing  extrema  for  the  column. 

Row  names:  The  names  of  rows  of  the  two  headers 
whenever  they  exist. 

•  Column  merging. 

The  naming  of  the  rows  of  the  combined  header  is  done 
in  the  same  way  as  the  naming  of  columns.  Since  the  first 
one  of  the  two  merged  data  matrices  is  adjusted  to  the  left 
of  the  created  common  matrix,  the  naming  of  the  sets  of  rows 
of  this  file  is  kept  as  the  common  name  for  the  corresponding 
rows  of  the  new  matrix. 

The  operation  of  merging  is  executed  without  .any 
extra  intervention  of  the  user,  simply  by  assignment  of  the 
file  names  of  the  two  headers  to  be  combined: 


IV.  CONCLUSION  AND  PERSPECTIVES 


The  interactive-conversational  character  makes  the  system 
easily  usable  and  independent  of  knowledge  requirements. 

The  language  used  for  implementation  (FORTRAN  77)  makes  it 
transportable.  The  separation  of  the  data  manipulation  process 
from  the  calculations  also  makes  it  highly  expandable.  Since 
the  developed  system  composes  only  the  module  for  manipulation 
of  the  data,  development  of  the  remaining  modules  constitute 
the  perspectives  of  the  concept  in  order  for  it  to  be  complete. 
The  cycle  of  data  analysis  is  realized  if  the  following  process 
is  completed: 


(I DAMAN) 

—  DATA  STORAGE  -  DATA  MANIPULATION  -  DATA  TREATMENT  — 

<  < 


Data  can  be  obtained  and  stored  automatically  by  a 
previous  program  or  by  the  keyboard  under  control  of  a 
specific  program— the  Interactive  DAta  LOaDer,  IDALOD, 
which  is  under  development  by  Dr.  Daniel  Guinier. 

Data  treatment  (statistical  or  mathematical)  can  be  done 
by  modification  of  modules  of  existing  packages  by 
addition  of  the  two  subroutines  READER,  in  relation  with 
the  "header  file",  and  REJECT,  in  relation  with  a 


"logical  suppression  file".  This  file  has  been  previous 
created  by  I DAMAN.  Application  programs  involve: 

one  column  (e.g.,  comparisons  of  means  of  sets  of 
observations  stored  in  one  or  several  columns) , 
two  columns  (e.g.,  graphs  including  observed  and/or 
data  fit  with  a  given  model) , 

several  columns  (e.g.,  multivariate  statistical 
analysis  (discriminant,  principal  components,  cluster 
...  analysis),  can  be  easily  developed.  There  is  no 
limitation  to  the  expandability  because  these  tasks 
are  not  included  in  the  previous  tasks  of  loading  and 
management . 
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APPENDIX  A 

FORTRAN  77  Source  Code  of  Interactive  Data  Manager 


★  *************************************************x********** 

Interactive  DATa  MANager 
I  DAMAN 

FUNCTION  : 


This  system  provides  the  means  for  an  interactive  and 
self  explanatory  manipulation  of  large  collections  of 
data  stored  in  direct-access  files  in  secondary  memory. 
The  way  the  system  can  manipulate  the  data  is  such  that 
facilitates  the  future  statistical  analysis  of  them.  The 
system  can  execute  the  following  manipulations 
( functions ) 

a.  Sort  the  data  matrix. 

b.  Multi-sort  the  data  matrix. 

c.  Search  the  data  matrix  for  a  value. 

d.  Rearrangement  the  columns  or  rows  of  the  data  matrix. 

e.  Transformation  of  a  column  values. 

f.  Randomization  of  the  values  of  the  entire  data 
matrix . 

g.  Logical  suppression  of  data. 

h.  Display  of  the  assigned  HEADER. 

i.  Display  of  the  data  matrix. 

By  D.GUINIER  and  N.TOTOS  (1984) 

Naval  Postgraduate  School,  Depatrment  of  Computer  Science 
Monterey,  California  93940 

VARIABLES  : 


NCOL 

NROW 

COLMNE 

NKEY 

MNE 

ROWMNE1 

ROWMNE2 

NRANK 


The  number  of 
The  number  of 
Array  storing 
Array  storing 
will  be  used 


Array 

will 

Array 

Array 

Array 

ass ign 


columns . 
rows . 

the  column  mnemonic  names, 
the  numbers  of  columns  which 
as  sorting  guides. 


storing  the  names  of  columns  which 
sorting  guides, 
row  mnemonic  names. 


be  used 

as 

stor 

i  ng 

the 

stor 

i  ng 

the 

stor 

ing 

the 

the 

rank  i  n 

mnemonics  of 
numbers  of 
j  of  columns. 


sets  of  rows, 
columns  that 
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MRANX 


columns 


C  MRANK  :  Array  storing  the  .names  of  columns  that 

C  assign  the  ranking  of  columns. 

C  A, 3  :  Arrays  storing  the  mumber  of  row  on  which 

C  starts  a  set  of  common  name  rows  and  the 

C  corresponding  on  which  ends  the  set. 

C  SUP1,SUP2  :  Arrays  storing  the  number  of  row  on  which 

C  starts  suppression  of  rows  and  the 

C  corresponding  on  which  ends  the  suppression. 

C  RM I N , RMAX  :  Arrays  storing  the  minimum  and  maximum 

C  values  between  which  trac ing  of  the  data  is 

C  going  to  take  place. 

C  NCO  :  The  numbers  of  columns  for  which  have  been 

C  assigned  names. 

C  NRO  :  The  numbers  of  rows  for  which  have  been 

C  assigned  names. 

C  NTR  :  The  column  numbers  for  which  tracing  extrema 

C  have  been  assigned. 

C  NCIN  :  The  invert  relative  addresses  of  COLMNE. 

C  NR IN  :  The  invert  relative  addresses  of  RCWMNE1. 

C  NTIN  :  The  invert  relative  addresses  of  RM I N , RMAX . 

C  SN  :  The  number  of  assigned  suppressions. 

C  FLAG1  :  Integer  array  of  six  elements  used  as  flag 

C  to  indicate  the  existence  or  not  of  the 

C  several  informations  regarding  the  columns. 

C  FLAG2  :  The  corresponding  flag  for  rows. 

C  FNAME  :  The  name  of  the  sequential  file  assigned  by 

C  the  user  for  on  which  the  headers's  data 

C  will  be  stored. 

C  HlFNAME  :  The  name  of  the  first  header's  file  which 

C  will  be  merged. 

C  H2FNAME  :  The  name  of  the  second  file  for  merging. 

C  NC  :  The  number  of  assigned  column  mnemonic  names 

C  NR  :  The  number  of  assigned  row  mnemonic  names. 

C  NT  :  The  number  of  columns  for  which  tracing 

C  extrema  have  been  assigned. 

C  IJ  :  The  number  of  assigned  tracing  extrema  sets. 

C  NN  :  The  number  of  repeated  sortings  according 

C  column  numbers. 

C  NM  :  The  number  of  repeated  sortings  according 

C  column  mnemonic  names. 

C  NNU  :  The  number  of  columns  used  for  ranking. 

C  KMN  :  The  number  of  column  names  used  for  ranking. 

C  LEC  :  The  logical  unit  for  writing  on  the  terminal 

C  IMP  :  The  logical  unit  for  reading  from  the 

C  terminal. 

C  LOGN  :  The  logical  chanel  for  the  file  on  which  the 

C  header, s  data  will  be  stored. 

C  NOROW  :  Array  the  numbers  of  rows  used  as  guides 

C  for  the  ranking  of  the  rows. 

C  NBROW  :  The  number  of  row  numbers  used  for  row 

C  ranking 

C 


DECLARATIONS  : 


IMPLICIT  INTEGER* 2  (I-N) 

INTEGER*2  SN  ,  ELAGI  (  6  )  ,  FLAG  2  (  4  )  ,NKEY(123)  ,  NRANK  ■  125  •'  , 

1  3(128) ,SU?i( 123) , So? 2 ( 123 ) ,NCO<  123 ; , 

2  NRO( 123 )  , NTR ( 123), NT  IN (123), NR  I N  i  2  3  4  5  !  , 

3  NOROW ( 2048 ) , A( 123 ) ,NCIN( 123 ) 

REAL *4  RM I N ( 1 2  8 ) , RMAX (123) 

CHARACTER*  2  4  FNAMS , HiFNAME , H2F NAME , I ND , COLMNE  1 2  3  ■  , 

1  MNE  (  128  )  ,  MRANK(  123  )  ,  ROWMNEH  2  243;  , 

2  ROWMNE  2(123) 

LOG  I  CAL* 1  ST AT , ST ATI , STAT2 
DATA  LEC, IMP, LOGN/5 , 6 , 0/ 


I DUM= 1 

DO  WHILE  ( IDUM.EQ. 1 ) 

IDUM=0 

WRITE ( IMP, 100 ) 

READ ( LEC, 200 )  IND 
IF  ( IND.EQ, ' 1 ' )  THEN 

CALL  CREATE (LEC, IMP , LOGN , FLAG1 , FLAG 2 , NCCL , NRCW , 

1  COLMNE , NC , NCO , NC I N , ROWMNE 1 , NR , NRO , NR  I N , 

2  ROWMNE 2 , RMI N , RMAX , NT , NTR , NT  I N , NKEY , MNE , NN , 

3  NM , I J , A , 3 , NRANK , MRANK , NNU , KMN , SUP  1 , SUP  2 , SN , 

4  NO ROW, N3 ROW) 

I DUM= 1 

ELSE  IF  (IND.EQ.' 2')  THEN 

CALL  D I SPLA ( LEC , IMP , LOGN , FLAG1 , FLAG2 , NCOL , NRCW , 

1  COLMNE , NC , NCO , NC I N , ROWMNE 1 , NR , NRO , NR I N , 

2  ROWMNE 2 , RMI N , RMAX , NT , NTR , NT  I N , NKEY , MNE , NN , 

3  NM, IJ, A, B, NRANK, MRANK, NNU, KMN, SUP 1 , SUP  2 , SN, 

4  NO ROW, NB ROW) 

I DUM= 1 

ELSE  IF  (IND.EQ. '3')  THEN 

CALL  MODIFY ( LEC , IMP , LOGN , FLAG1 , FLAG2 , NCOL , NRCW , 

1  COLMNE , NC , NCO , NC I N , ROWMNE 1 , NR , NRO , NR I N , 

2  ROWMNE 2 , RMI N , RMAX , NT , NTR , NT  I N , NKEY , MNE , NN , 

3  NM , I J , A , B , NRANK , MRANK , NNU , KMN , SUP! , SUP 2 , SN , 

4  NOROW, NB ROW) 

I DUM= 1 

ELSE  IF  (IND.EQ. '4')  THEN 

CALL  MERGE ( LEC, IMP , LOGN , FLAG1 , FLAG 2 , NCOL , NRCW, 

1  COLMNE , NC , NCO , NC I N , ROWMNE 1 , NR , NRO , NR  I N , 

2  ROWMNE  2 , RM I N , RMAX , NT , NTR , NT  I N , NKEY , MNE , NN , 

3  NM , I J , A , 3 , NRANK , MRANK , NNU , KMN , SUP  1 , SUP  2 , SN , 

4  NOROW, N3R0W) 

I DUM= 1 

ELSE  IF  (IND.EQ. ’  ' )  THEN 

I DUM=0 
ELSE 

WRITE ( IMP, 300 ) 

I DUM= 1 
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END  IF 
END  DO 

FORMATS 


00 


00 

00 


FORMAT ( 

/// //13X 

’AVAILABLE  MODES’ /13X, 

1 

’ - ’/ 

2 

4X , 

Creation  of  new  header 

,  1 

/ 

3 

4X , 

Display  of  existing  header 

:  2 

/ 

4 

4X , 

Modification  of  existing  header 

;  3 

/ 

5 

4X, 

Merging  of  two  existing  headers 

*  -I 

/ 

6 

,3X, 

Answer 

:  ’  ) 

FORMAT ( 

A2  4  ) 

FORMAT ( 

/3X, 

’  INVALID  CHARACTER!  !  ’  ) 

END 


SUBROUTINE  CREATE ( DEC , IMP, LOGN , FLAG1 , FLAG 2 , NCOL , NRCW , 

1  COLMNE , NC , NCO , NC I N , ROWMNE 1 , NR , NRO , NR I N , 

2  ROWMNE  2 , RM I N , RMAX , NT , NTR , NT I N , NKEY , MNE , NN , 

3  NM , I J , A , 3 , NRANK , MRANK , NNU , KMN , SUP 1 , SUP  2 , SN , 

4  NOROW, NBRCW) 

*******************,<*******************************★********* 


This  subroutine  is 


used  for  the  creation  of 


a  new  header. 


ARGUMENTS 


LEC 

IMP 

LOGN 

FLAG1 


FLAG2 

NCOL 

NROW 

COLMNE 

NC 

NCO 

NCIN 
ROWMNE 1 
NR 
NRO 

NRIN 


The 

logical 

un 

i  t 

number 

f  o 

r 

terminal . 

The 

logical 

un 

i  t 

number 

fo 

r 

terminal . 

The 

logical 

un 

i  t 

for  th 

e 

f  i 

header, s  da 

ta 

wi 

11  be  s 

tor 

ed 

Integer  array 

of 

six  e 

lemen 

to 

indicate 

t 

he 

exist 

enc 

e 

writing  on  the 

reading  from  the 

le  on  which  the 

ts  used  as  flag 
or  not  of  the 
several  informations  regarding  the  columns. 
The  corresponding  flag  for  rows. 

The  number  of  columns. 

The  number  of  rows. 

Array  storing  the  column  mnemonic  names. 

The  number  of  assigned  column  mnemonic  names 
The  numbers  of  columns  for  which  have  been 
assigned  names. 

The  invert  relative  addresses  of  COLMNE. 
Array  storing  the  row  mnemonic  names. 

The  number  of  assigned  row  mnemonic  names.. 
The  numbers  of  rows  for  which  names  have 
been  assigned. 

The  invert  relative  addresses  of  ROWMNE. 
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UNCLASSIFIED 


F/G  9/2 


NL 


RCWMNE2  : 
RMIN, RMAX  : 


NT 


NTR 


NT  IN 
NKEY 

MNE 

NN 


NM 


IJ 
A ,  B 

NRANK 


MRANK 


NNU  : 
KMN  : 
SUPi , SUP2  : 


SN 

NO  ROW 
NBROW 


Array  storing  the  .mnemonics  of  sets  of  revs 
Arrays  storing  the  minimum  and  maximum 
values  between  which  tracing  of  the  data  is 
going  to  take  place. 

The  number  of  columns  for  which  tracing 
extrema  have  been  assigned. 

The  column  numbers  for  which  tracing 
extrema  have  been  assigned. 

The  invert  relative  addresses  of  RMIN, RMAX. 
Array  storing  the  numbers  of  columns  which 
will  be  used  as  sorting  guides. 

Array  storing  the  names  of  columns  which 
will  be  used  as  sorting  guides. 

The  number  of  repeated  sortings  according 
column  numbers. 

The  number  of  repeated  sortings  according 
column  mnemonic  names. 

The  number  of  assigned  tracing  extrema  sets 
Arrays  storing  the  mumber  of  row  on  which 
starts  a  set  of  common  name  rows  and  the 
corresponding  on  which  ends  the  set. 

Array  storing  the  numbers  of  columns  that 
assign  the  ranking  of  data 

Array  storing  the  names  of  columns  that 

assign  the  ranking  of  data 

The  number  of  columns  used  for  ranking. 

The  number  of  column  names  used  for  ranking 
Arrays  storing  the  number  of  row  on  which 
starts  suppression  of  rows  and  the 
corresponding  on  which  ends  the  suppression 
The  number  of  assigned  suppressions. 

Array  the  numbers  of  rows  used  as  guides 
for  the  ranking  of  the  rows. 

The  number  of  row  numbers  used  for  row 
ranking 


IMPLICIT  I NTEGER* 2  (I-N) 

INTEGER*2  SN,FLAG1(6) ,FLAG2(4) ,NKEY(128) , NRANK (128) , 

1  B ( 128 ) , SUPI ( 128 ) ,SUP2( 128) ,NCO( 128) ,NCIN( 123 ) , 

2  NRO (128) , NTR (128) ,NTIN(128) ,NRIN(2048) , 

3  NOROW ( 2048 ) ,A( 128 ) 

REAL *4  RM I N ( 1 2  8 )  , RMAX (12  8) 

CHARACTER* 2 4  FNAME , COLMNE ( 128 ) , MNE ( 128 ) , MRANK ( 128 ) , 

1  ROWMNE1 ( 2048 ) , R0WMNE2 (128) , IND, H1FNAME , H2FNAME 

LOGICAL* 1  STAT , STAT1 , STAT2 

Request  a  name  for  the  file  on  which  the  data  of  the 
header  will  be  stored. 


WRITE ( IMP, 200 ) 


READ( LEC , 10G )  FNAME 

Examine  if  a  file  whith  this  name  already  exists. 

I NQU I  RE ( F I LE*  FNAME , EX I ST= STAT ) 

If  not,  open  a  new  sequential  file. 

I F  ( STAT . EQ . . FALSE . )  THEN 

OPEN (UN I T=LOGN, FILE = FNAME, STATUS = 'NEW ) 

Call  the  subroutine  which  will  request  for  colum 
or  row  informations. 

CALL  CRINFO( LEC , IMP, FLAG 1 , FLAG2 , NCOL , NRCW , COLMNE , 

1  NC , NCO , NC I N , ROWMNE 1 , NR , NRO , NR I N , ROWMNE 2 , 

2  RM I N , RMAX , NT , NTR , NT I N , NKE Y , MNE , NN , NM , IJ, 

3  A , B , NRANK , MRANK , NNU , KMN , SUP1 , SUP2 , SN , 

4  NOROW, NBROW) 

Record  the  assigned  data  in  the  opened  file  fo 
future  reference. 

CALL  WRITER  ( LOGN , FLAG 1 , FLAG 2 , NCOL , NROW , KMN , NNU , NN , 

1  NM, I J , A , 3 , COLMNE , NC , NCO , NC I N , RM I N , RMAX , 

2  NT , NTR , NT I N , NKEY , MNE , NRANK , MRANK , 

3  ROWMNE 1 , NR , NRO , NR I N , ROWMNE  2 , SUP 1 , SUP  2 , 

4  SN, NOROW, NBROW) 

If  the  file  already  exists,  respond  with  a  message. 
ELSE 

WR I TE ( I MP ,300) 

IDUM-1 
END  IF 

FORMATS 


FORMAT (A2 4 ) 

FORMAT (///'$', 3X, ' Name  of  header' 's  file  :') 
FORMAT ( ///4X , ' THE  FILE  ALREADY  EXIST!!') 
RETURN 


SUBROUT I NE  D I SPLA ( LEC , IMP , LOGN , FLAG1 , FLAG2 , NCOL , NROW , 

1  COLMNE , NC , NCO , NC I N , ROWMNE 1 , NR , NRO , 

2  NR I N , ROWMNE2 , RMI N , RMAX , NT , NTR , NT  I N , 

3  NKEY , MNE , NN , NM , I J , A , B , NRANK , MRANK , NNU , 

4  KMN, SUP 1, SUP 2, SN, NOROW, NBROW) 


C  This  subroutine  is  used  to  display  the  data  of  a  preveusly 
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defined  header. 


ARGUMENTS 


LEC 

IMP 

LOGN 

FLAG1 


FLAG2 

NCOL 

NROW 

COLMNE 

NC 

NCO 

NCIN 

ROWMNE1 

NR 

NRO 

NR  IN 
ROWMNE2 
RM I N , RMAX 


NT 

NTR 

■NT  IN 
NKEY 

MNE 

NN 

NM 

IJ 
A ,  B 


NRANK 


i 


The  logi 

cal 

unit 

number  for  writ 

ing  on 

the 

terminal 

. 

The  logi 

cal 

un  i  t 

number  for  readi 

ng  from 

t  he 

terminal 

. 

The  logi 

cal 

un  i  t 

for 

the  file  on 

wh  i  ch 

r  r*  0 

header , s 

da 

t  a  w  i 

11  be 

stored . 

Integer 

array  of 

six 

elements  u 

sed  as  : 

:lag 

of 
which 
wh  i  ch 


he 


a  « 

ua 


to  indicate  the  existence  or  not  of  the 
several  informations  regarding  the  columns. 
The  corresponding  flag  for  rows. 

The  number  of  columns. 

The  number  of  rows. 

Array  storing  the  column  mnemonic  names. 

The  number  of  assigned  column  mnemonic  names 
The  numbers  of  columns  for  which  have  been 
assigned  names. 

The  invert  relative  addresses  of  COLMNE. 
Array  storing  the  row  mnemonic  names. 

The  number  of  assigned  row  mnemonic  names. 
The  numbers  of  rows  for  which  names  have 
been  assigned. 

The  invert  relative  addresses  of  ROWMNE. 
Array  storing  the  mnemonics  of  sets  of  rows 
Arrays  storing  the  minimum  and  maximum 
values  between  which  tracing 
going  to  take  place. 

The  number  of  columns  for 
extrema  have  been  assigned. 

The  column  numbers  for 
extrema  have  been  assigned. 

The  invert  relative  addresses  of  RM I N , RMAX . 
Array  storing  the  numbers  of  columns  which 
will  be  used  as  sorting  guides. 

Array  storing  the  names  of  columns  which 
will  be  used  as  sorting  guides. 

The  number  of  repeated 
column  numbers. 

The  number  of  repeated 
column  mnemonic  names. 

The  number  of  assigned  tracing  extrema  sets 
Arrays  storing  the  mumber  of  row  on  which 
starts  a  set  of  common  name  rows  and  the 
corresponding  on  which  ends  the  set. 

Array  storing  the  numbers 
assign  the  ranking  of  data 
Array  storing  the  names 
assign  the  ranking  of  data 


trac ing 
t  rac i ng 


sort  ings 
sor t i ngs 
trac ing 


accord i ng 
accord  i  ng 


of  columns  that 


of  columns  that 


MRANK 


nnnnnnnnnnnnn 


k  ■  wi'v 


NNU 

KMN 

SUP I , SUP 2 


SN 

NOROW 

NBROW 


The  r.u.T.ber  of  columns  used  for  ranking. 
The  number  of  column  names  used  for  ra 
Arrays  scoring  the  number  of  row  on 
starts  suppression  of  rows  and 
corresponding  on  which  ends  the  suppre 
The  number  of  assigned  suppressions. 
Array  the  numbers  of  rows  used  as  g 
for  the  ranking  of  the  rows. 

The  number  of  row  numbers  used  fo 
ranking 


n.< ;  n 
wnic.i 
the 
ss  ion 


u:ces 
r  row 


IMPLICIT  INTEGER*2  (I-N) 

INTEGER*2  SN,FLAG1(6) ,FLAG2(4) ,NKEY( 128 ) , NRANK ( 123) , 

1  B( 128 ) ,SUP1( 128 ) , SUP2 ( 128 ) ,NCO( 128 ) , NCIN( 128 ) , 

2  NRO (128) ,  NTR( 128 ) , NTIN( 128 )  , NRIN( 2043 ) , 

NOROW ( 2048 ) ,A(128) 

REALM  RM I N (  1 2 8  )  ,  RM AX  (128) 

CHARACTER* 2 4  FNAME , COLMNE (128 ) ,MNE( 123 ) ,MRANK( 123 ) , 

1  ROWMNE1 ( 2048 ) , ROWMNE2 ( 123) , IND, HI FNAME , 

H2FNAME 

LOGICAL  *  1  STAT , STAT1 , STAT2 
WRITE ( IMP, 200 ) 

C  Request  the  name  of  the  file. 

READ (LEC, 100)  FNAME 
I NQU I  RE ( F I LE= FNAME , EX  I ST= STAT ) 

C  If  the  file  exists  open  it. 

I F  ( STAT . EQ. . TRUE . )  THEN 

OPEN ( UNIT=LOGN , F I LE= FNAME , STATUS = ' OLD ' ) 

REWIND  LOGN 

C  Call  the  subroutine  READER  to  read  the  data  of  the  file 

CALL  READER ( LOGN , FLAG1 , FLAG 2 , NCOL , NROW , KMN , NNU , NN , NM , 
I J , A , B , COLMNE , NC , NCO , NC I N , RMI N , RMAX , NT , 

NTR , NT I N , NKE Y , MNE , NRANK , MRANK , ROWMNE1 , NR , 
NRO , NR I N , ROWMNE2 , SUP1 , SUP2 , SN , NOROW , N3RCW ) 

I DUM= 1 

C  Loop  for  succesive  display  capability. 

DO  WH I LE ( IDUM.EQ. 1 ) 

I DUM=0 

C  Request  for  column  or  row  display. 

WRITE ( IMP, 300 ) 

READ( LEC, 100 )  IND 


1 

2 

3 
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IF  (IND.EQ.'l')  THEN 

If  column  display  is  requested; 

CALL  CD I SP ( LEC , IMP , FLAG1 , NCOL , COLMNE , NC , NCO , 

1  NC  I N ,  RM I N ,  RMAX  ,  NT  ,  NT  R  ,  NT  I N  ,  NK  E  Y  ,  MN  E  , 

2  NN , NM , NRANK , MRANK , NNU , KMN ) 

I DUM= 1 

ELSE  IF  (IND.EQ. ’2’)  THEN 

If  row  display  is  requested; 

CALL  RDI SP ( LEC , IMP , FLAG2 , NRCW , ROWMNE 1 , NR , NRC , 

1  NR I N , ROWMNE  2 , I J , A , 3 , SUP1 , SUP 2 , SN , 

2  NOROW , NBROW ) 

I DUM= 1 

If  <CR>  stop  the  loop. 

ELSE  IF  (IND.EQ.’  ’)  THEN 
I DUM=0 

If  invalid  character  is  hit  give  an  error  message. 
ELSE 

WRITE ( IMP, 400) 

I DUM  = 1 
END  IF 
END  DO 
END  IF 


FORMATS 


FORMAT (A2 4 ) 

FORMAT (///'$', 3X, ' Name  of  header' 's  file 
FORMAT(///4X,  ’Column  informations 

1  /4X,  ’Row  informations 

2  /’$’ ,3X, ’Answer 

FORMAT (/3X, ’ INVALID  CHARACTER!!’) 

RETURN 

END 


SUBROUT  I NE  MOD  I FY ( LEC , IMP , LOGN , FLAG1 , FLAG2 , NCOL , NROW , 

1  COLMNE , NC , NCO , NC I N , ROWMNE 1 , NR , NRO , NR  I N , 

2  ROWMNE  2 , RM I N , RMAX , NT , NTR , NT  I N , NKEY , MNE , 

3  NN , NM , I J , A , B , NRANK , MRANK , NNU , KMN , SUP  I , 

4  SUP 2 ,SN, NOROW, NBROW) 


header . 
ARGUMENTS 

LEC 

IMP 

LOGN 

FLAG1 


FLAG2 

NCOL 

NROW 

COLMNE 

NC 

NCO 

NCIN 

ROWMNE1 

NR 

NRO 

NR  IN 
ROWMNE2 
RM I N , RMAX 


NT 

NTR 

NT  IN 
NKEY 

MNE 

NN 

NM 

IJ 


t  r.e 


is  r.ac 


The  logical  unit  number  for  writing  on  the 
terminal . 

The  logical  unit  number  for  reading  from  the 
terminal . 

The  logical  unit  for  the  file  on  w: 
header, s  data  will  be  stored. 

Integer  array  of  six  elements  used  as 
to  indicate  the  existence  or  not  of  the 
several  informations  regarding  the  columns. 
The  corresponding  flag  for  rows. 

The  number  of  columns. 

The  number  of  rows. 

Array  storing  the  column  mnemonic  names. 

The  number  of  assigned  column  mnemonic  names 
The  numbers  of  columns  for  which  have  been 
assigned  names. 

The  invert  relative  addresses  of  COLMNE. 
Array  storing  the  row  mnemonic  names. 

The  number  of  assigned  row  mnemonic  names. 
The  numbers  of  rows  for  which  names  have 
been  assigned. 

The  invert  relative  addresses  of  ROWMNE . 
Array  storing  the  mnemonics  of  sets  of  rows 
Arrays  storing  the  minimum  and  maximum 
values  between  which  tracing 
going  to  take  place. 

The  number  of  columns  for 
extrema  have  been  assigned. 

The  column  numbers  for 
extrema  have  been  assigned. 

The  invert  relative  addresses  of  RM IN, RMAX 
Array  storing  the  numbers  of  columns  whi 
will  be  used  as  sorting  guides. 

Array  storing  the  names  of  columns  which 
will  be  used  as  sorting  guides. 

The  number  of  repeated  sortings 
column  numbers. 

The  number  of  repeated  sortings 
column  mnemonic  names. 

The  number  of  assigned  tracing 


of  the 

which 

which 


data  is 


tracing 

tracing 


n 


accord  i  ng 


according 


extrema  sets 


c 

c 

c 

A,  B 

:  Arrays  storing  the  mumber  of 
starts  a  set  of  common  name 
corresponding  on  which  ends  the 

row  on  which 
rows  and  the 
set . 

c 

c 

NRANK 

:  Array  storing  the  numbers 
assign  the  ranking  of  data 

of 

columns  that 

c 

c 

MRANK 

:  Array  storing  the  names 
assign  the  ranking  of  data 

of 

columns  that 

c 

NNU 

:  The  number  of  columns  used 

for 

rank i ng . 

r«i 


uuuuu 


KMN 

SUP i, SUP 2 


KMN  :  The  number  of  column  names  used  for  rank 

SUP 1, SUP 2  :  Arrays  scoring  the  number  of  row  on  vh: 

starts  suppression  of  rows  and 
corresponding  on  which  ends  the  suppress: 
SN  :  The  number  of  assigned  suppressions. 

NORCW  :  Array  the  numbers  of  rows  used  as  gui 

for  the  ranking  of  the  rows. 

NBROW  :  The  number  of  row  numbers  used  for 

rank i ng 


IMPLICIT  INTEGER* 2  (I-N) 

INTEGERS  SN ,  FLAG!  (  6  )  ,  FLAG2  (  4  )  ,NKEY(128)  ,NRANK(123)  , 

1  3(128) ,SUP1( 128 ) ,SUP2( 123) ,NCO( 128 ) ,NCIN( 123 ) , 

2  NRO ( 128 ) , NTR (128) , NTIN( 128 ) , NRIN( 2048 ) , 

3  NOROW (2048) ,  A  ( 1 2  8  ) 

REAL *4  RMIN (128) , RMAX (128) 

CHARACTER* 2 4  FNAME , COLMNE ( 1 2 8 )  , MNE ( 123 ) , MRANK <  12  3), 

1  ROWMNE1 ( 2048 ) , ROWMNE2 (128) , IND, HI FNAME , 

2  H 2 FNAME 

LOG I CAL* 1  STAT , STAT1 , STAT2 

Request  the  name  of  the  file  where  the  data  of  the 
existing  header  are  stored. 

WRITE( IMP, 200  ) 

READ( LEC, 100 )  FNAME 
I NQU I  RE ( F I LE- FNAME , EX  I ST=STAT ) 

If  the  file  exists  open  it. 

I F  ( STAT . EQ . . TRUE . )  THEN 

OPEN(UNIT=LOGN, F I LE= FNAME , STATUS = ' OLD' ) 

REWIND  LOGN 

Read  the  data  of  the  existing  header. 

CALL  READER ( LOGN , FLAG1 , FLAG2 , NCOL , NROW , KMN , NNU , NN , NM , 

1  I J , A , B , COLMNE , NC , NCO , NCI N, RMIN, RMAX , NT , NTR , 

2  NT  I N , NKEY , MNE , NRANK , MRANK , ROWMNE 1 , NR , NRO , 

3  NR IN, ROWMNE 2 , SUP1 , SUP 2 , SN, NOROW , NBROW ) 

Close  the  old  file. 

CLOSE (UN I T= LOGN) 

Open  a  new  file  with  the  same  name. 

OPEN ( UNI T  =  LOGN , F I LE  =  FNAME , STATUS = ' NEW'  ) 

I DUM= 1 


Loop  for  succesive  modification  capability. 
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DO  WHILE* IDUM.EQ. 1 ) 

I  DUM=  0 

Request  for  column  or  row  modification. 

WRITE ( IMP, 400  ) 

READ*  LEC , 100 )  IND 

If  column  modification  is  desired; 

IF  ( IND.EQ. ' 1 ' )  THEM 

Call  COLMOD  for  column  modification. 

CALL  COLMOD ( LEC , IMP , FLAG1 , NCOL , MRCW , CCLMNE , NC , 
NCO , NC I N , RM I N , RMAX , NT , MTR , NT  I N , 

NKEY , MNE , NN , NM , NRANK , MRANK , NNU , KMN ) 

Call  WRITER  to  record  the  modified  header's 
data . 

CALL  WRITER* LOGN , FLAG1 , FLAG2 , NCOL , NROW , KMN , 

NNU , NN , NM , I J , A , B , COLMNE , NC , NCO , 

NC I N , RM I N , RMAX , NT , NTR , NT  I N , NKEY , 
MNE , NRANK , MRANK , ROWMNEi , NR , NRG , 

NR I N , RCWMNE2 , SUP  1 , SUP 2 , SN , NOROW , 
NBROW) 

I DUM= 1 

If  row  modification  is  desired; 

ELSE  IF  (IND.EQ. '2')  THEN 

Call  ROWMOD  for  row  modification. 

CALL  ROWMOD (LEC, IMP , FLAG 2 , NCOL , NRCW , RCWMNE1 , NR , 
NRO , NR I N , ROWMNE  2 , I J , A, 3 , SUP1 , SUP 2 , 
SN, NOROW, NBROW) 

Call  WRITER  to  record  the  modified  header's 
data . 

CALL  WRITER* LOGN , FLAG1 , FLAG2 , NCOL , NROW , KMN , NNU , 
NN , NM , I J , A , B , COLMNE , NC , NCO , NC I N , 

RM I N , RMAX , NT , NTR , NT  I N , NKEY , NME , 

NRANK , MRANK , ROWMNE 1 , NR , NRO , NR  I N , 
ROWMNE 2 , SUP1 , SUP 2 , SN , NORCW , NBROW ) 

I DUM= 1 


If  <CR>  stop  the  loop. 
ELSE  IF  (IND.EQ. '  ' )  THEN 


SUBROUTINE  MERGE ( LEC , IMP , LOGN , FLAG1 , FLAG2 , NCOL , NRCW , 

1  COLMNE , NC , NCO , NC I N , ROWMNE 1 , NR , NRO , NR I N , 

2  ROWMNE 2 , RM I N , RMAX , NT , NTR , NT  I N , NKE  Y , MNE , 

3  NN , NM , I J , A , B , NRANK , MRANK , NNU , KMN , SU? 1 , 

4  SUP2 ,SN, NOROW, NBROW) 


AGi 


a 


FLAG  2 

NCOL 

NROW 

COLMNE 

NC 

MCO 

NCIN 

ROWMNE1 

NR 

NRO 

NR  IN 
ROWMNE2 
RM I N , RMAX 


NT  I N 
NKEY 


NRANK 


MRANK 


wrucn  names 


maximum 


•ac  i  nc 


which 


NNU  : 
KMN  : 
SUP1 , SUP2  : 


SN 

NOROW 


ce  the  exisce 
several  informations  regarding  the  columns. 
The  cor  respond  i  r.g  flag  for  rows. 

The  number  of  columns. 

The  number  of  rows. 

Array  storing  the  column  mnemonic  names. 

The  number  of  assigned  column  mnemonic  names 
The  numbers  of  columns  for  which  have  beer, 
assigned  names. 

The  invert  relative  addresses  of  COLMNE. 
Array  storing  the  row  mnemonic  names. 

The  number  of  assigned  row  mnemonic  names. 
The  numbers  of  rows  for  which  names  have 
been  assigned. 

The  invert  relative  addresses  of  RCWMNE. 
Array  storing  the  mnemonics  of  sets  of  rows 
Arrays  storing  the  minimum  and  maximum 
values  between  which  tracing  of  the  data  is 
going  to  take  place. 

The  number  of  columns  for  which  tracing 
extrema  have  been  assigned. 

The  column  numbers  for  which  tracing 
extrema  have  been  assigned. 

The  invert  relative  addresses  of  RM I N , RMAX . 
Array  storing  the  numbers  of  columns  which 
will  be  used  as  sorting  guides. 

Array  storing  the  names  of  columns  which 
will  be  used  as  sorting  guides. 

The  number  of  repeated  sortings  according 
column  numbers. 

The  number  of  repeated  sortings  according 
column  mnemonic  names. 

The  number  of  assigned  tracing  extrema  sets 
Arrays  storing  the  mumber  of  row  on  which 
starts  a  set  of  common  name  rows  and  the 
corresponding  on  which  ends  the  set. 

Array  storing  the  numbers  of  columns  that 
assign  the  ranking  of  data 

Array  storing  the  names  of  columns  that 

assign  the  ranking  of  data 

The  number  of  columns  used  for  ranking. 

The  number  of  column  names  used  for  ranking 
Arrays  storing  the  number  of  row  on  which 
starts  suppression  of  rows  and  the 
corresponding  on  which  ends  the  suppression 
The  number  of  assigned  suppressions. 


accord  i  n.g 


sortings  according 
tracing  extrema  sets 


set . 
columns 

columns 


NBROW 


Array  the  numbers  of  rows  used 
for  the  ranking  of  the  rows. 

The  number  of  row  numbers  used 
rank i ng 


as  guides 
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IMPLICIT  IN 

I  NTEGZR *  2  SN  ,  F  LAG  1  (  c  )  ,  F L AG  2  (  4  >  ,  N'XEY  (12  3),  NRANK  ?  125  ■ 

1  3(123) ,SUP1  123) ,SL'?2i  123) , NCC ' 123 ) ,NCIN 

2  NRO  (12  3)  ,  N’T  R  (  1 2  3  )  ,NTIN(  123)  ,NRIN(2043  1  , 

3  NOROW ( 2043 ) ,A( 123 ) 

REAL*  4  RMIN( 123)  , RMAX ( 123) 

CHARACTER* 2 4  FNAME , COLMNE (123), MNE (123), MRANK <  1 2 

1  ROWMNE  1(2043),  RCWMNZ  2  (  1 2  3  )  ,  I ND  ,  H 1 E  N _ 

H 2 FNAME 

LOGICAL*!  ST  AT ,  STA.T  1 ,  ST  AT  2 


I DUM= 1 

Loop  in  case  of  user  input  errors. 

DO  WH I LE ( I DUM . EQ . 1 ) 

I DUM=0 


Request  the  name  of  the  first 
examine  if  it  exists. 


rue  to  oe  me 


WRITE ( IMP, 400 ) 

READ( LEC, 100 )  HI FNAME 

INQU I  RE ( F I LE=H1 FNAME , EX  I  ST  =  ST AT 1 ) 

If  does  not  exist  print  an  error  message  and  r 
the  request. 

IF  (STAT1.EQ. .FALSE. )  THEN 
WRITE ( IMP, 300 ) 

I DUM= 1 
ELSE 
END  IF 

Request  the  name  of  the  second  file  to  be  me 
examine  if  it  exists. 

WRITE ( IMP, 500 ) 

READ ( LEC, 100 )  H2 FNAME 

INQU I  RE ( F I LE  =  H2 FNAME ,EXIST  =  STAT2 ) 

If  does  not  exist  print  an  error  message  and  r 
the  request. 

IF  (STAT2 . EQ. . FALSE. )  THEN 
WRITE ( IMP, 300 ) 

I DUM= 1 
END  IF 

If  both  files  exist,  request  name  for  the  new  fi 


IF  (STAT1.EQ. .TRUE. .AND. STAT2.EQ. .TRUE. )  THEN 


‘l*-  U  > 


n  n 


c 


WRITE*  IMP,  ) 

READ  t  DEC  ,  :  J  :  >  FNAME 

Examine  if  the  file  exists. 

I NQU I  RE  <  F I LE  = FNAME , EX  I  ST  =  ST  AT ) 

If  not,  request  if  column  or  row  merging  is  going  t 
be  executed. 

I ?  ( ST AT . EQ . . FALSE . )  THEN 
WRITE ( IMP, 500 ) 

READ ( LEC, 100 )  I  NO 


C 


If  row  merging  call  COMRCW 


100 

200 

300 

400 


2 

3 

4 


2 

3 

4 

5 


1 

2 

3 

4 


2 

3 

4 

5 


IF  ( IND.EQ. ' 1 ' )  THEN 

CALL  COMRCW ( LEC, IMP , LOGN , NCCL , NRCW , FLAG  1 , 

FLAG2 , COLMNE , NC , NCO , NC I N , I J , A , 3 
ROWMNE 1 , NR , NRC , NR  I N , RCWMNE 2 , 

H 1 FNAME , H  2  FNAME , RM I N , RMAX , NT , 

NTR , NT  I N ) 

OPEN ( UN I T=  LCGN , F I LE=  FNAME , STATUS  = ' NEW ’  ■ 

CALL  WRITER ( LOGN , FLAG1 , FLAG2 , NCCL , NRCW , KMN , 
NNU , NN , NM , I J , A , 3 , COLMNE , NC , NCO , 
NC I N , RM I N , RMAX , NT , NTR , NT  I N , NKEY , 
MNE , NRANK , MRANK , RCWMNE 1 , NR , NRC , 
NR  IN , ROWMNE 2 , SUP1 , SUP 2 , SN , NORCW , 
NBRCW ) 

ELSE  IF  (IND.EQ.' 2’)  THEN 

CALL  COMCOL ( LEC , IMP , LOGN , NCOL , NROW , FLAG1 , 

FLAG  2 , COLMNE , NC , NCO , NC I N , I J , A , 3 
ROWMNE 1 , NR , NRO , NR  I N , RCWMNE  2 , 

HI FNAME , H 2  FNAME , RM I N , RMAX , NT , 
NTR , NT  I N ) 

OPEN ( UNI T= LOGN, FI LE= FNAME, STATUS = ’ NEW' ) 

CALL  WRITER( LOGN, FLAG1 , FLAG2 , NCOL , NRCW , KM 
NNU , NN , NM , I J , A , 3 , COLMNE , NC , NC 
NC  I N ,  RM  I N ,  RM  AX  ,  NT  ,  NT  R ,  NT  I N ,  NX 
MNE , NRANK , MRANK , RCWMNE 1 , NR , NR 
NR I N , ROWMNE  2 , SUP1 , SUP2 , SN, NOR 
NBRCW) 

END  IF 
ELSE 

WRITE ( IMP, 200 ) 

I DUM= 1 
END  IF 


END  IF 
END  DO 
FORMAT (A2 4 ) 

FORMAT ( ///4X,  'THE  FILE  ALREADY  EXIST!!’) 

FORMAT (///4X, 'THE  FILE  DOES  NOT  EXIST!!’' 

FORMAT (///'$' ,3X, ' Name  of  first  Header’ 's  file  :') 
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It  O  1*1  o  o 


500 

FORMAT ('S' 

,  3X 

'Name  of  second 

Header ' ' s  file 

600 

FORMAT ( / / / 4  X , 

Row  merging  : 1 ' 

/  4  X , 

1 

Column  merging  : 2  ' 

t 

2  /'S', 

3X , 

Answer  : ’ ) 

700 

FORMAT ( ' $ ' 

,  3X 

'Name  of  new 

Header ' ' s  file 

RETURN 

END 


C*** 

C 


SUBROUTINE  CRINFO (  LEC  ,  IMP  ,  FLAG!  ,  FLAG 2  ,  N'COL  ,  NRCW  ,  CCLMNE  , 

1  NC , NCO , NC I N , ROWMNE 1 , NR , NRG , NR  I N , 

2  RCWMN  E  2  ,  RM I N  ,  RMAX  ,  NT  ,  NT  R ,  NT  I N ,  NK  E  Y  , 

3  MNE , NN , NM , I J , A , 3 , NRANK , MRANK , NNU , KMN , 

4  SUP 1 , SUP2 , SN , NCROW , NBRCW > 


c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


ARGUMENTS 

ARGUMENTS 


C 

C 

LEC 

:  The  logical  unit  number  for  writing  on 
terminal . 

c 

c 

IMP 

:  The  logical  unit  number  for  reading  from 
terminal . 

c 

c 

LOGN 

:  The  logical  unit  for  the  file  on  which 
header, s  data  will  be  stored. 

c 

c 

c 

FLAG1 

:  Integer  array  of  six  elements  used  as 
to  indicate  the  existence  or  not  of 
several  informations  regarding  the  colum 

c 

FLAG  2 

:  The  corresponding  flag  for  rows. 

c 

NCOL 

:  The  number  of  columns. 

NROW 

COLMNE 

NC 

NCO 


NCIN 
ROWMNE I 
NR 
NRO 


c  names, 
emonic  names 
h  have  been 


NR  IN 
ROWMNE 2 
RMI N , RMAX 


NT 
NTR 
NT  IN 


The  number  of  rows. 

Array  storing  the  column  mnemoni 
The  number  of  assigned  column  mn 
The  numbers  of  columns  for  v’nic 
assigned  names. 

The  invert  relative  addresses  of  COLMNE. 
Array  storing  the  row  mnemonic  names. 

The  numoer  of  assigned  row  mnemonic  names. 
The  numbers  of  rows  for  which  names  have 
been  assigned. 

The  invert  relative  addresses  of  ROWMNE. 
Array  storing  the  mnemonics 
Arrays  storing  the  minimum 
values  between  which  tracing 
going  to  take  place. 

The  number  of  columns  for 
extrema  have  been  assigned. 

The  column  numbers  for 
extrema  have  been  assigned. 

The  invert  relative  addresses  of  RMIN.RMAX. 


f  sets 

of  row 

and 

max  imu; 

of  the 

data  i 

which 

t  rac i n 

which 

t  r ac  i  n 
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NKEY 


NRANK 

MRANK 

NNU 

KMN 

SUP1 , SUP2 


SN 

NOROW 

NBROW 


Array  scoring  the  numoers  or  co. 
will  be  used  as  sorting  guides. 

Array  storing  the  names  of  colv 
will  be  used  as  sorting  guides. 

The  number  of  repeated  sortings 
column  numbers. 

The  number  of  repeated  sortings 
column  mnemonic  names. 

The  number  of  assigned  tracing  extrema  se- 


:o^umns 


coiumns 


wn :  c.n 


sortings  accorc.ng 


:orc  1  ng 


Arrays  storing  the  mumber  of 
starts  a  set  of  common  name 
corresponding  on  which  ends  th 
Array  storing  the  numbers  of  coiumns  that 
assign  the  ranking  of  data 

Array  storing  the  names  of  columns  that 

assign  the  ranking  of  data 

The  number  of  columns  used  for  ranking. 

The  number  of  column  names  used  for  ranking 
Arrays  storing  the  number  of  row  on  which 
starts  suppression  of  rows  and  the 
corresponding  on  which  ends  the  suppression 
The  number  of  assigned  suppressions. 

Array  the  numbers  of  rows  used  as  guides 
for  the  ranking  of  the  rows. 

The  number  of  row  numbers  used  for  row 
ranking 


row  on  wmcn 


IMPLICIT  INTEGER*2  (I-N) 

INTEGER* 2  FLAG1 ( 6 ) , NCO( 128 ) , FLAG2 ( 4 ) , NKEY (128) ,NTR(123> , 

1  SUP1 ( 128 ) , SUP2 ( 128 ) ,NRO( 128 ) ,NCIN(128) , 

2  NT  I N ( 1 2  8 ) , NRIN( 2048 ) ,NORCW(2048) , SN , NRANK ( 128) 
REAL *4  RM I N ( 1 2  8 ) , RMAX (128) 

CHARACTER* 1  IND 

CHARACTER* 2 4  COLMNE(128) ,MNE(128) , MRANK ( 128) , 

1  ROWMNE1 ( 2048 ) ,ROWMNE2 ( 128 ) 

NBYTES=NCOL*4 
I DUM= 1 

DO  WHILE  ( IDUM.EQ. 1) 

IDUM=0 

WRITE  (IMP, 100) 

READ  ( LEC , 200 )  IND 
IF  ( IND.EQ. ' 1 ' )  THEN 

CALL  COL I NF ( LEC , I MP , FLAG 1 , NCOL , NRCW , COLMNE , NC , 

1  NCO , NC I N , RM I N , RMAX , NT , NTR , NT IS, NKEY, 

2  MNE , NN , NM , NRANK , MRANK , NNU , KMN ) 

I DUM= 1 

ELSE  IF  (IND.EQ. '2')  THEN 

CALL  ROW INF (LEC, IMP , FLAG 2 , NCOL , NROW , ROWMNEi , 

1  NR , NRO , NR I N , ROWMNE2 , I J , A , B , SUP1 , SUP 2 , 

2  SN, NO ROW, NBROW) 


ril 


LSE  IF  (IND.EQ.'  ')  THEN- 
RETURN 
ELSE 

WRITE ( IMP, 300 ) 

I DUM= 1 
END  IF 
END  DO 

FORMAT  ( ///4X,  '  Column  information 

1  'Row  information 

2  'Answer 
FORMAT  (A24) 

FORMAT (//6X, ' INVALID  CHARACTER! ! ' ' 


SUBROUT  I NE  COL  I NF ( LEC ,  IMP , FLAG! , NCOL , NROW , COLMNE , NC , NC 

1  NC I N ,  RM I N ,  RMAX , NT , NTR, NT  I N , NKEY , MNE , 

2  NN , NM , NRANK , MRANK , NNU , KMN ) 


1  ’  /  4  X  , 

2' ,/'S’ , 3X , 


ARGUMENTS 


FLAG1 


FLAG2 

NCOL 

NROW 

COLMNE 

NC 

NCO 

NCIN 

RMIN, RMAX 


NT  IN 
NKEY 


The  logical  unit  number  for  writing  on  the 
terminal . 

The  logical  unit  number  for  reading  from  the 
terminal . 

Integer  array  of  six  elements  used  as  flag 
to  indicate  the  existence  or  not  of  the 
several  informations  regarding  the  columns. 
The  corresponding  flag  for  rows. 

The  number  of  columns. 

The  number  of  rows. 

Array  storing  the  column  mnemonic  names. 

The  number  of  assigned  column  mnemonic  names 
The  numbers  of  columns  for  which  names  have 
been  assigned. 

The  invert  relative  addresses  of  COLMNE. 
Arrays  storing  the  minimum  and  maximum 
values  between  which  tracing  of  the  data  is 
going  to  take  place. 

The  number  of  columns  for  which  tracing 
extrema  have  been  assigned. 

The  column  numbers  for  which  tracing  extrema 
have  been  assigned. 

The  invert  relative  addresses  of  RMIN, RMAX. 
Array  storing  the  numbers  of  columns  which 
will  be  used  as  sorting  guides. 

Array  storing  the  names  of  columns  which 
will  be  used  as  sorting  guides. 

The  number  of  repeated  sortings  according 
column  numbers. 


NM 

:  The  numcer 

o:  repeated 

sor  t  i 

r.GS  aCC 

column  cl  n 

emonic  n 

ames . 

NRANK 

:  Array  stor 

i.og  the 

n umber 

s  of 

col  un  n 

assign  the 

rank  i  ng 

of  data 

MRANK 

:  Array  stor 

ing  the 

names 

of 

columns 

assign  the 

ranking 

of  data 

NNU 

:  The  number 

of  columns  used 

for 

rank i ng 

KMN 

:  The  number 

of  column  names 

used 

z  o  r  r  a 

IMPLICIT  I NTEGER*  2  (I-N) 

INTEGERS  FLAGK6)  ,NTIN(128)  ,NKEY(12S)  ,  NRANK  (  128)  , 

1  NCO (128) , NC I N ( 1 2  8  ) , NTR (123) 

REAL *4  RM I N  (  1 2  8  )  , RMAX (128) 

CHARACTER* 2  IND 

CHARACTER* 2 4  COLMNE(128) ,MNE(128)  , MRANK (123) 

I DUM= 1 

DO  WH I LE  (I DUM . EQ . 1 ) 

IDUM=0 

WRITE ( IMP, 100 ) 

READ  ( LEC , 200 )  IND 

IF  ( IND. EQ. ' 1 ' )  THEN 
WRITE ( IMP, 500 ) 

READ ( LEC, 600 )  NCL 
IF  (NCL.LE.128)  THEN 
NCOL=NCL 
ELSE 

WRITE ( IMP, 800) 

I DUM= 1 
END  IF 
I DUM= 1 

ELSE  IF  ( IND. EQ. ’ 2 ' )  THEN 
IF  (NCOL.NE.O)  THEN 

CALL  COLNAM ( LEC , IMP , FLAG1 , NCOL , COLMNS , NC , NCO , 
l  NCIN) 

I DUM= 1 
ELSE 

WRITE ( IMP, 400) 

I DUM= 1 
END  IF 

ELSE  IF  ( IND . EQ . ' 3 ' )  THEN 
IF  (NCOL.NE.O)  THEN 

CALL  TRSFRM ( LEC , IMP , FLAG1 , NCOL , NROW , COLMNE , NC , 
1-  NCO  ,  NC  I N ) 

I DUM= 1 
ELSE 

WRITE ( IMP, 400 ) 

I DUM= 1 
END  IF 

ELSE  IF  ( I ND . EQ . ' 4 ' )  THEN 


IF  (NCOL.NE.O)  THEN- 

CALL  EXTREM  (  LEC  ,  IMP  ,  FLAG  1 ,  NCOL  ,  NRCW  ,  RM I  N  ,  RMAX  , 
NT , NTR , NT  I N ) 

IDUM=: 

ELSE 

WRITE ( IMP, 400 ) 

I DUM= 1 
END  IF 

ELSE  IF  ( IND.EQ. ’ 5‘ )  THEN 
IF  (NCOL.NE.O)  THEN 

CALL  MULSOR (LEC, IMP, NCOL, NRCW, FLAG! ,NKZY, MNE, 

NN , NM , COLMNE ) 

I DUM= 1 
ELSE 

WRITE ( IMP, 400) 

I  DLJM=  1 
END  IF 

ELSE  IF  (IND.EQ.' 6')  THEN 
IF  (NCOL.NE.O)  THEN 

CALL  RANDOM ( LEC, IMP , NCOL , NRCW ) 

I  D(JM=  1 
ELSE 

WRITE ( IMP, 400) 

I  DUM=  1 
END  IF 

ELSE  IF  (IND.EQ.' 7')  THEN 
IF  (NCOL.NE.O)  THEN 

CALL  CRANK ( LEC , I MP , NCOL , NRCW , FLAG 1 , NRANK , MRANK , 
NNU , KMN , COLMNE ) 

I DUM= 1 
ELSE 

WRITE ( IMP, 400) 

I DUM= 1 
END  IF 

ELSE  IF  ( I ND . EQ . ' 8 ' )  THEN 

CALL  CD  ISP  (  LEC.,  IMP,  FLAG  1  ,  NCOL,  COLMNE,  NC  ,  NCO  ,  NC  IN, 

RM I N , RMAX , NT , NTR , NT  I N , NKSY , MNE , 

NN , NM , NRANK , MRANK , NNU , KMN ) 

IDUM= 1 

ELSE  IF  (IND.EQ.' 9')  THEN 

CALL  COLMOD  ( LEC , IMP , FLAG 1 , NCOL , NROW , COLMNE , NC , 

NCO , NC I N , RM I N , RMAX , NT , NTR , NT  I N , NKEY , 
MNE , NN , NM , NRANK , MRANK , NNU , KMN ) 

I DUM= 1 

ELSE  IF  ( IND.EQ. ' 10 ' )  THEN 

IF  (NCOL.NE.O. AND. NROW. NE.0)  THEN 

CALL  SEEDAT( LEC, IMP , NCOL , NROW , 1 , 1 ) 

I DUM= 1 
ELSE 

WR I TE ( IMP, 700 ) 

I DUM= 1 
END  IF 


F  <  I ND . EQ .  _ 1  )  THEN 
IF  (  N’COL  .  NE  .  C  .  AND  .  NRCW .  NE  .  3  )  THEN 

CALL  DISDATlLEC, IMP , NCCL , NRCW , 1,1) 

:dum=i 

ELSE 

WR I TE ( IMP, 700 ) 

I DUM= 1 
END  IF 

ELSE  IF  ( IND.EQ. '  ’ )  THEN 

RETURN 
ELSE 

WRITE ( IMP, 300 ) 

I DUM= 1 
END  IF 
END  DO 

FCRMAT(///4X, 'SELECTION  TABLE  FOR  COLUMN  INFORMAT 


IONS ' / 


7X, 'Number  of  columns  (mandatory) 
'Mnemonic  names 
' Transformat  ions 
'Tracing  extrema 
'Multi-sorting  column  guides 
'Randomization  of  data 
'Column  ranking 
'Display  column  informations 
'Modification  of  column  info 
'Data  retrieval 
'Display/print  of  data  file 
3X , ’ Answer  : ' ) 


1 ' / 7X, 

2 ' /7X, 

3 ' /IX, 

4 ' / 7X , 

5  '  /  IX, 
i' /IX, 

1 ' /IX , 

3 ' /7X, 

9 ' /IX, 
10’/7X, 
11  '  // 


FORMAT  (A24) 

FORMAT (//3X, ' INVALID  CHARACTER! ! ’ ) 

FORMAT(///4X,  'NUMBER  OF  COLUMNS  HAS  NOT  BEEN’, 

1  /10X,  '  ASSIGNED!!') 

FORMAT (//'$', 3X ,' Assign  number  of  columns  :’) 
FORMAT (15) 

FORMAT ( ///4X, ' NUMBER  OF  COLUMNS  AND  ROWS  MUST  BE' 
1  /I 2 X, 'ASSIGNED  TO  DISPLAY  THE  DATA  FI 

FORMAT ( ///4X , ' THE  ASSIGNED  NUMBER  OF  COLUMNS  EXEE 
1  4X , '  THE  MAXIMUM  PERMITTED  128') 

RETURN 


LE!  !  '  ) 
DS’  / 


SUBROUT  I NE  ROW  I NF ( LEC , I MP , FLAG2 , NCOL , NROW , RCWMNE 1 , NR , 

1  NROW , NR I N , ROWMNE2 , I J , A , B , SUP  1 , SUP2 

2  SN, NOROW, NBROW) 


This  subroutine  is  used  for  assignment  of  the  severa 
row  informations 
ARGUMENTS  ■ 


nnnnnnnnnnnnnnnnnnnnnnnnnnn 


LEC 

IMP 

FLAG2 

NCOL 

NROW 

ROWMNE1 

NR 

NRO 

NR  IN 
ROWMNE2 
IJ 
A ,  B 


SUP1 , SUP2  : 


SN 

NO  ROW 
NBROW 


w-  .  w  tr  «  *  • 


The  logical  unit  number  for  vricinc  on  the 
terminal . 

The  logical  unit  number  for  reading  from  the 
terminal . 

The  corresponding  flag  for  rows. 

The  number  of  columns. 

The  number  of  rows. 

Array  storing  the  row  mnemonic  names. 

The  number  of  assigned  row  mnemonic  names. 
The  numbers  of  rows  for  which  names  have 
been  assigned. 

The  invert  relative  addresses  of  RCWMNZ. 
Array  storing  the  mnemonics  of  sets  of  rows. 
The  number  of  assigned  tracing  extrema  sets. 
Arrays  storing  the  mumber  of  row  on  which 
starts  a  set  of  common  name  rows  and  the 
corresponding  on  which  ends  the  set. 

Arrays  storing  the  number  of  row  on  which 
starts  suppression  of  rows  and  the 
corresponding  on  which  ends  the  suppression 
The  number  of  assigned  suppressions. 

Array  the  numbers  of  rows  used  as  guides  for 
the  ranking  of  the  rows. 

The  number  of  row  numbers  used  for  row 
rank i ng . 


IMPLICIT  INTEGER* 2  (I-N) 

INTEGER*2  SN,FLAG1(6) ,FLAG2(4) , NKEY ( 128) , NRANK (128 ) , 

1  B ( 128 ) , SUP1 ( 128 ) , SUP2 ( 128 ) , NRO (128) , 

2  NRIN( 2048 ) , NOROW (2048 ) , A( 128 ) , IJCOMPC 123 ) 
REAL*  4  RM I N ( 1 2 8 ) , RMAX  (128) 

CHARACTER* 2  IND 
CHARACTER*?  MODROW 

CHARACTER* 2 4  FNAME , CCLMNE (128 ) ,MNE( 128 ) ,MRANK( 123 ) , 

1  ROWMNE1 ( 2048 ) ,ROWMNE2( 128) 

DIMENSION  NOCOL (256) 

DATA  MODROW/ ' rows ' / 


IDUM-1 

DO  WHILE  ( IDUM.EQ. 1 ) 

I DUM=0 

WRITE ( IMP, 100 ) 

READ( LEC, 200  )  IND 
IF  ( IND.EQ. ' 1 ’ )  THEN 
WRITE ( IMP, 500 ) 

READ( LEC, 600  )  NROW 
I DUM= 1 

ELSE  IF  (IND.EQ.' 2')  THEN 
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IF  (NRCW. NE.O)  THEN 

CALL  RCWN'AM (  LEC  ,  IMP  ,  FLAG2  ,  NRCW  ,  RCWMNE 1  ,  NR ,  NRG  . 
NR I N , RCWMNE 2 , I J , A, 3  > 

I DUM= 1 
ELSE 

WRITE ( IMP, 400 ) 

I  D(JM=  1 
END  IF 

ELSE  IF  ( I ND . EQ . 1 3 1 ) THEN 
IF  (NRCW.NE.O)  THEN 

CALL  ROWSUP ( LEC , IMP , FLAG 2 , NCOL , NRCW , SUP  1 , SUP 2 , 
SN , ROWMNE  2 , A , 3  > 

I  D(JM=  1 
ELSE 

WRITE ( IMP, 400) 

I DUM= 1 
END  IF 

ELSE  IF  ( IND . EQ . 1 4 1 )  THEN 

CALL  REJECT ( LEC , IMP , NROW , I JCCMP , I , 1 , 1 , 1 , I ) 

I DUM= 1 

ELSE  IF  ( I ND . EQ . 1 5 1 )  THEN 

CALL  ANAD I S ( LEC , IMP , NROW , NROW , NOROW , N3RCW , MODRCW ) 
CALL  REORD ( LEC , IMP , NCOL , NRCW , FLAG2 , NOROW , NS ROW ! 

I DUM= 1 

ELSE  IF  ( IND. EQ.  1 6  *  )  THEN 

CALL  RDISP  (LEC, IMP, FLAG2, NRCW, ROWMNE 1, NR, NRO, 

NR I N , ROWMNE  2 , I J , A , B , SUP 1 , SUP  2 , SN , 
NOROW, NBROW) 

I DUM= 1 

ELSE  IF  ( IND . EQ . ' 7 ' )  THEN 

CALL  ROWMOD ( LEC , IMP , FLAG 2 , NCOL , NRCW , ROWMNE I , NR , NRO 
NR I N , ROWMNE 2 , I J , A , B , SUP 1 , SUP  2 , SN , NCRCW 
NBROW) 

I DUM= 1 

ELSE  IF  ( IND . EQ . ' 8 ' )  THEN 

IF  ( NCOL. NE.O. AND. NROW. NE.O)  THEN 

CALL  SEEDAT( LEC, IMP , NCOL , NROW , 1 , 1 ) 

I DUM= 1 
ELSE 

WRITE ( IMP, 700) 

I DUM=0 
END  IF 

ELSE  IF  ( I ND . EQ . ' 9 ' )  THEN 

IF  (NCOL. NE.O. AND. NROW. NE.O)  THEN 

CALL  D I SDAT ( LEC , IMP , NCOL , NROW , 1,1) 

I DUM= 1 
ELSE 

WRITE ( IMP, 700) 

I DUM=0 
END  IF 

ELSE  IF  ( IND.EQ. '  ' )  THEN 


RE' 

ELSE 


;rn 


WRITS ( IMP, 300  I 


I DUM= 1 
END  IF 
END  DO 

FORMAT (///4X, 

1  4X , 

2  7X, 

3 

4 

5 

6 

7 

8 
9 
1 


SELECTION  TABLE  FOR  ROW  INFORMA 

( mandatory ) 


T I CNS  1  , 


’Number  of  rows 
’Mnemonic  names 
’Row  suppression 
’Row  rejection 
’Row  ranking 

’Display  row  informations 
’Modification  of  row  info 
’Data  retrieval 
’Display/print  of  data  file 
2  ’  $ ’ , 3X , ’ Answer  : ’ ) 

FORMAT (A2 4 ) 

FORMAT (///4X, ’ INVALID  CHARACTER! ! ’ ) 

FORMAT(///4X, ’NUMBER  OF  ROWS  HAS  NOT  BEEN  ASSIGN 


'X, 


2  ’ 

3  ’ 

4  ’ 

5  ’ 

6  ’ 


3  ’ 
9  ’ 


/IX, 

/IX, 

/IX, 

/ix, 

/IX, 

/IX, 

/IX, 

// 


ED!  !  ’  ) 


) 


FORMAT (//’$’, 3X ,’ Ass ign  number  of  rows 
FORMAT ( I  3 ) 

FORMAT ( ///4X, ’ NUMBER  OF  COLUMNS  AND  ROWS  MUST  3E 
1  /4X, ’ ASSIGNED  TO  DISPLAY  THE  DA" 

RETURN 
END 


’A  FILE! 


Hr******************************************************* 

SUBROUT  I NE  COLNAM( LEC , IMP , FLAG1 , NCOL , COLMNE , NC , NCO , NC I N ) 


This  subroutine  is  used  for  assignment  of  names  to 
columns 
ARGUMENTS 


LEC 

IMP 

FLAG1 

COLMNE 

NC 

NCO 


The  logical  unit  number  for  writing  on  the 
terminal . 

The  logical  unit  number  for  reading  from  the 
terminal . 

Integer  array  of  six  elements  used  as  flag 
to  indicate  the  existence  or  not  of  the 
several  informations  regarding  the  columns. 
Array  storing  the  column  mnemonic  names. 

The  number  of  assigned  column  mnemonic  names 
The  numbers  of  columns  for  which  names  have 
been  assigned. 

The  invert  relative  addresses  of  COLMNE. 


NCIN 


IMPLICIT  I NTEGER*  2  tl-N) 

INTEGER* 2  LEC, IMP , NCCL , FLAG! ( 6 ) , NCO( 123 ) , NCIN( 128 ) 
CHARACTER* 2 4  COLMNE! 123 ) ,  NAME 

FLAG1 ( 1 ) =1 
1  =  1 
NC=  1 

DO  WHILE  ( I .NE. 0 ) 

WRITE ( IMP, 100 ) 

READ(LEC, 200)  I 
IF  (I.LE.NCOL)  THEN 
IF  ( I . EQ . 0 )  THEN 
NC=NC- 1 

CALL  EXSH1 ( NCO, NCIN, NC , 1 ) 

RETURN 

ELSE 

NCO ( NC ) = I 
WRITE ( IMP, 300) 

READ( LEC, 400 )  NAME 
COLMNE ( NC ) -NAME 
END  IF 
ELSE 

WRITE ( IMP, 500 ) 

END  IF 
NC=NC+ 1 
END  DO 

FORMAT ( /'$', 3X, ' Assign  column  number ( <CR>  to  RETURN) 
FORMAT (15) 

FORMAT ( 3X, 'Assign  mnemonic 
FORMAT (A2 4) 

FORMAT (//4X, 'THE  ASSIGNED  COLUMN  NUMBER  EXEEDS 
1  /7X , 'THE  NUMBER  OF  COLUMNS! ! ’ ) 

RETURN 


SUBROUT  I NE  TRSFRM ( LEC , I MP , FLAG 1 , NCOL , NRCW , COLMNE , NC , NCO , 
1  NCIN) 


ARGUMENTS 


FLAG1 


NCOL 


The  logical  unit  number  for  writing  on  the 
terminal. 

The  logical  unit  number  for  reading  from  the 
terminal . 

Integer  array  of  six  elements  used  as  flag 
to  indicate  the  existence  or  not  of  the 
several  informations  regarding  the  columns. 
The  number  of  columns. 


c 

NRCW 

:  The 

number  of 

rows . 

c 

COLMNE 

:  A rra 

7  storing 

the  column  mnemonic  names. 

c 

NC 

:  The 

number  of 

assigned  col um.n  rnn emo n  i  c  r. am. e s 

c 

NCO 

:  The 

numbers  of 

columns  for  vhich  names  have 

C  been  assigned. 

C  NCIN  :  The  invert  relative  addresses  a:  COLMNE. 

C 

£  *  *  *  ★  1c  ie  *  *  ★  *  *  *  *  ★  ★  *  *  ★  ★  *  *  *  *  *  ic  *  x  x  ★  *  *  *  *  *  *  *  ★  *  *  *  *  •*  *  *  x  ■*  x  x  ★  *  *  *  *  *  x  x  x  x  *  x  x 

IMPLICIT  INTEGER*2  (l-N) 

INTEGER*2  FLAG1 ( 6 ) ,NCO(128) ,NCIN( 123) 

CHARACTER* 2 4  COLMNE ( 128 ), TRANS 
FLAG  1  (  1  )  =  1 
WRITE ( IMP , 100 ) 

I NDEX=NC 
TRANS = ' A' 

DO  WH I LE ( TRANS . NS . '  ' ) 

RE AD ( LEC, 20  0  )  TRANS 
I F  ( TRANS . NE . '  ' )  THEN 

NC=NC+ 1 

NCO  ( NC )  =  NCOL-*- 1 
COLMNE ( NC ) =TRANS 
NCOL=NCOL+ 1 
END  IF 
END  DO 

CALL  EXSH1 (NCO, NCIN, NC , 1) 

CALL  CONV(NCOL,NRCW, COLMNE, NC, INDEX) 

100  FORMAT (///6X, 'AVAILABLE  FUNCTIONS ’ /6X, 


1  ' - '/2X, 

2  ' 1 . -LOGC[ X]  '  , 4X ,  '  9 . -AS  I N [ X ] 1 / 2X , 

3  ’2.-LOGCX]  ' , 4X ,  ' 10.-ACOSCX] ’ /2X, 

4  ' 3 . -EXP[X ]  ' , 4X ,  ' ll.-ATAN[X’ ' /2X, 

5  ' 4 . - ABS [ X !  ' , 4X ,  ' 12.-SINH[X] ' /2X, 

6  '  5  .  -  S  I N  [  X  ]  '  ,  4X  ,  '  13.-COSHCX]  V2X, 

7  ’ 6. -COS[ X 3  ’ , 4X ,  ’ 14.-TANH[X] '/2X, 

8  ' 7 . -TAN[ X  3  '  , 4X ,  ' 15. -SQRTtX] ’ /2X, 

9  '  8  .  -  AS  I NH [ X ] ' // 2X , 

1  'Assign  transformations  :'/) 


200  FORMAT (A2 4) 

RETURN 

END 

£************************************************************* 
SUBROUT  I NE  EXTREM ( LEC , I MP , FLAG1 , NCOL , NRCW , RM I N , RMAX , NT , 

1  NTR , NT  I N ) 

£********************************************#***********+**** 

C 

C  This  sub rout ine  is  used  for  assignment  of  tracing 

C  extrema 

C 
C 


ARGUMENTS 


h“. 

1 


B 


C 


c 

LEC 

The  logical  unit  number  for 

writing  on  t 

c 

term i na 1 . 

c 

IMP 

The  logical  unit  number  for  r 

e  a  c  i  n  g  i  r  c  m  t 

c 

terminal . 

c 

FLAG1 

Integer  array  of  six  eiemen 

ts  used  as  fl 

c 

to  indicate  the  existence 

or  not  of  t 

c 

several  informations  regardin 

g  the  columns 

c 

NCOL 

The  number  of  columns. 

c 

RM  I N ,  RMAX 

Arrays  storing  the  minimum 

and  maxim 

c 

values  between  which  tracing 

of  the  data 

c 

going  to  take  place. 

c 

NT 

The  number  of  columns  for 

which  traci 

c 

extrema  have  been  assigned. 

c 

NTR 

The  column  numbers  for  which 

tracing  extra 

c 

have  been  assigned. 

c 

NT  I N 

The  invert  relative  addresses 

of  RM IN, RMAX 

c 


£**********************: 


’**★**★*•**’****■* 


IMPLICIT  INTEGER*2  (I-N) 

I NTEGER*  2  LEC, IMP , NCOL , FLAG1 ( 6 ) , NTR ( 123 ) ,NTIN< 123 ) 
REAL *4  RM I N ( 1 2 8 ) ,RMAX(128) ,FMIN(128) , FMAX ( 128) 
CHARACTER* 1  IND 

FLAG1 ( 2 ) =1 

CALL  F I NDMM { LEC ,  I MP , NCOL , NROW , FM I N , FMAX ) 

I DUM= 1 

DO  WHILE  ( IDUM.SQ. 1 ) 

IDUM=0 

WRITE ( IMP, 100 ) 

READ  (LEC, 200)  IND 
IF  ( IND. EQ. ’O’)  THEN 
RETURN 

ELSE  IF  (IND.EQ.'l')  THEN 
1=1 
NT-1 

DO  WHILE  ( I .NE.Q) 

WRITE ( IMP, 700 ) 

READ ( LEC ,300)  I 
IF  (I.NE.0)  THEN 
NTR (NT) =1 

WRITE ( IMP, 300  )  FMIN(  I ) 

READ( LEC , 400 )  RMIN(NT) 

WRITE( IMP, 500 )  FMAX ( I ) 

READ (LEC, 4 00)  RMAX ( NT ) 

NT=NT+ 1 
END  IF 
END  DO 
•  NT=NT- 1 

ELSE  IF  ( IND.EQ. '  ’ )  THEN 
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RETURN 

ELSE 

write ( :m? , t : : > 

: dum= : 

END  IF 
END  DO 

CALL  EXSHi < NTR , NT  I N , NT , 1 ) 

FORMAT ( ///4X Imposed  ex:re~a  for  tracing  :  1 '  -IX, 

1  'Original  extrema  :3'/'$',3X, 

2  ' Answer  :  ’  ) 

FORMAT (A2 4 ) 

FORMAT ( ' $ ' , 3X, ' MIN  (found)  F14 . 6 , 2X Imposed 
FORMAT ( F 1 4 . 6 ) 

FORMAT  (.' S 3X, 'MAX  (found)  FI4 . 6 , 2X ,' Imposed 
FORMAT (//3X, ' INVALID  CHARACTER! ! ' ) 

FORMAT  (//'$',  3X ,'  Ass  ig.n  column  number  <  <CR>  to  RETURN':' 
FORMAT (15) 

RETURN 

END 


SUBROUT  I NE  MULSOR ( LEC , IMP , NCOL , NRCW , FLAG  1 , NKEY , MNE . NN , 

I  NM , COLMNE ) 

C 

C  This  subroutine  is  used  for  assignment  of  sorting 

C  column  guides 


ARGUMENTS 


NCOL 

NRCW 

FLAG1 


NKEY 


COLMNE 


The  logical  unit  number  for  writing  on  the 
terminal . 

The  logical  unit  number  for  reading  from  the 
terminal . 

The  number  of  columns. 

The  number  of  rows. 

Integer  array  of  six  elements  used  as  flag 
to  indicate  the  existence  or  not  of  the 
several  informations  regarding  the  columns. 
Array  storing  the  numbers  of  columns  which 
will  be  used  as  sorting  guides. 

Array  storing  the  names  of  columns  which  will 
be  used  as  sorting  guides. 

The  number  of  repeated  sortings  according 
column  numbers. 

The  number  of  repeated  sortings  according 
column  mnemonic  names. 

Array  storing  the  column  mnemonic  names. 
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IMPLICIT  I NTEGER*  2  i  I-Nj 
INTEGER *2  FLAG! < 6 ) , NKEY ( 1 2 S  ) 

CHARACTER*!  IND 

CHARACTER* 7  MODCCL 

CHARACTER*  2  4  MNE  ',125),  CCLMNE  (125) 

DATA  MODCCL/  '  columns  '  / 

I DUM= 1 

DO  WHILE  ( IDUM.EQ. 1 ) 

IDUM=0 

WRITE ( IMP, 100 ) 

READ( LEC, 200 )  IND 
IF  ( IND.EQ. ' 1 ' )  THEN 

IF  ( FLAG1 ( 4 ) . EQ. 0 )  THEN 
FLAG1 ( 3 ) =1 

CALL  ANADI S ( LEC , IMP , NCOL , NCOL , NKEY , NN , MCDCCL 
CALL  REAR1 ( LEC , IMP , NCOL , NRCW , NKEY , NN ) 

ELSE 

WRITE ( IMP, 700) 

RETURN 
END  IF 

ELSE  IF  (IND.EQ. '2')  THEN 
IF  ( FLAG1 ( 1) .EQ. 1)  THEN 
IF  ( FLAG1 ( 3 ) . EQ . 0 )  THEN 
FLAG1 ( 4 ) = 1 
WRITE ( IMP, 400 ) 

CALL  AS3YMN ( LEC , IMP , NCOL , COLMNE , NM , MNE i 
CALL  REAR2 ( LEC , IMP , NCOL , NRCW , COLMNE , MNE , N 
ELSE 

WRITE( IMP, 300) 

RETURN 
END  IF 
ELSE 

WR I TE ( IMP, 500  ) 

END  IF 
ELSE 

WRITE ( IMP, 600 ) 

I DUM= 1 
END  IF 
END  DO 
RETURN 

FORMAT ( ///4X ,' 3y  column  number  :1'/4X, 

1  'By  mnemonic  name  :2' 

2  3X, ' Answer  :  '  ) 

FORMAT (A2 4 ) 

FORMAT ( ///4X ,' Ass iqn  column  mnemonic  names  :') 

FORMAT ( //4X , ' NO  MNEMONIC  NAMES  HAVE  BEEN  ASSINGED!!’) 
FORMAT (//4X, ' INVALID  CHARACTER! !')• 

FORMAT (//4X, 'MULTI -SORTING  GUIDES  HAVE  ALREADY  3EEN ' / 
1  9X  '  ASSIGNED  BY  MNEMONIC  NAMES') 

FORMAT ( //4X,  'MULT I -SORTING  GUIDES  HAVE  ALREADY  3EEN ' / 


SUBROUTINE  CRANK (LEC, IMP , NCOL , NROW , FLAG 1 , NRANK , MRANX , 
1  NNU , KMN , COLMNE ) 


This  subroutine  is  used  to  assign  column  ranking 
column  number  or  column  mnemonic  names. 

ARGUMENTS 


NCOL 

NROW 

FLAG1 


NRANK 

MRANK 

NNU 

KMN 

COLMNE 


The  logica 
terminal . 
The  logica 
terminal . 
The  number 
The  number 
Integer  a 
to  indica 
several  in 
Array  stor 
assign  the 
Array  sto 
assign  the 
The  number 
The  number 
Array  stor 


1  unit  number  for  writing  on  th 
1  unit  number  for  reading  from  th 


of  columns, 
of  rows. 

rray  of  six  elements  used  as  fla 
t e  the  existence  or  not  of  th 
formations  regarding  the  columns, 
ing  the  numbers  of  columns  tha 
ranking  of  data 

ring  the  names  of  columns  tha 
ranking  of  data 
of  columns  used  for  ranking, 
of  column  names  used  for  rank 
ing  the  column  mnemonic  names. 


IMPLICIT  I NTEGER*2  (I-N) 

INTEGER *2  LEC , IMP , NCOL , NNU , KMN , FLAG1 ( 6 ) , NRANK (128) 
CHARACTER*!  IND 
CHARACTER*?  MODCOL 

CHARACTER* 2 4  MNE ( 128 ) , COLMNE ( 128 ) , MRANK ( 123 ) 

DATA  MODCOL/' columns ' / 

I DUM= 1 

DO  WHILE  ( IDUM.EQ. 1) 

I DUM=0 

WRITE ( IMP, 100  ) 

READ( LEC , 400 )  IND 
IF  ( IND.EQ. ’ 1 ' )  THEN 

IF  ( FLAG1 ( 6 ) . EQ . 0 )  THEN 
FLAG1 ( 5 ) = 1 

CALL.  ANADIS( LEC, IMP , NCOL* 2 , NCOL , NRANK , NNU , 
1  MODCOL) 

CALL  RANK i( LEC, IMP , NCOL , NROW , NRANK , NNU ) 


WRITE ( IMP, 700 ) 

RETURN 
END  IF 

ELSE  IF  ( I ND . EQ . ' 2 ' )  THEN 
IF  ( FLAG1 ( 5 ) . EQ . 0 )  THEN 
IF  (FLAGl(l) . EQ . 1 )  THEN 
FLAG  1 ( 6 ) =  1 
WRITE ( IMP, 300  ) 

CALL  ASBYMN ( LEC , IMP , NCOL , COLMNE , KMN , MRAN 
CALL  RANK 2 ( LEC , IMP , NCOL , NRCW , MRANK , KMN , 

1  COLMNE ) 

ELSE 

WRITE ( IMP, 500 ) 

RETURN 
END  IF 
ELSE 

WRITE ( IMP, 800) 

END  IF 
ELSE 

WRITE ( IMP, 600 ) 

I DUM= 1 
END  IF 
END  DO 


FORMAT ( 
1 
2 

FORMAT ( 
FORMAT ( 
FORMAT ( 
FORMAT ( 
FORMAT ( 
I 

FORMAT ( 
1 

RETURN 


///4X , 

$' , 3X , 
///3X, 
A24) 
///4X , 
///4X , 
///4X , 

//MX, 


'By  column  mumber 
'By  mnemonic  names 
'  Answer 


l’/4X, 

2'/ 

'  ) 


'Assign  ranking  by  sequence  of  names  :' 

'NO  MNEMONIC  NAMES  HAVE  BEEN  ASSINGED! ! 
'  INVALID  CHARACTER!  !  '  ) 

'RANKING  HAS  ALREADY  BE  ASS  I GNED ' /6X , 

'  BY  COLUMN  MNEMONIC  NAMES! ! ’ ) 

'RANKING  HAS  ALREADY  3E  ASS  I GNED ' /6X , 

'  BY  COLUMN  NUMBERS ! ! ’ ) 


SUBROUTINE  ASBYMN  ( LEC , IMP , NCOL , COLMNE , N , AR ) 


ARGUMENTS 

LEC  : 

The  logical  unit  number 
terminal . 

for  writing 

IMP 

The  logical  unit  number 
terminal. 

for  reading  f 

NCOL  '  : 

The  number  of  columns. 

COLMNE  : 

Array  storing  the  column 

mnemonic  names 

me  numoe 
Array  sto 


r.e  assignee  rnnenor 
he  assigned  mnerr.cn 


IMPLICIT  INTEGER*2  (I-M) 

INTEGER* 2  NCOL,N 

CHARACTER* 2 4  COLMNE( 123 ) , AR( 128 ) , NAME 
LOGICAL*!  TEST 

N=0 

NAME= 'A' 

DO  WHILE  ( NAME . NE . '  ’ ) 

I DUM= 1 

DO  WH I LE ( IDUM.EQ. 1 ) 

I DUM=0 

READ( LEC , 100  )  NAME 

CALL  TESTER ( NCOL , NAME , COLMNE , TEST ) 

IF  (N.LT. NCOL) THEN 

I F  ( TEST . EQ. . TRUE . )  THEN 
N=N+ 1 

AR ( N ) =  NAME 

ELSE  IF  ( TEST. EQ . .FALSE. .AND. NAME. NE . ' 
WRITE ( IMP , 200 ) 

I DUM= 1 
END  IF 
ELSE 

WRITE( IMP, 300 ) 

RETURN 
END  IF 
END  DO 
END  DO 
FORMAT (A2 4 ) 

FORMAT (///4X, 'THE  ASSIGNED  MNEMONIC  HAS  NOT  3EEN 

1  '  ASSIGNED  AS  COLUMN  MNEMONIC !!’ //4X , 

2  'Assign  next  mnemonic') 

FORMAT (/// 4 X, 'THE  ASSIGNED  NUMBER  OF  MNEMONICS  I 

1  /4X ,  'GREATER  THAN  THE  NUM3ER  OF  COLUMNS 

2  'THE  LAST  ONE  IS  OMMITED ' ) 

RETURN 


SUBROUTINE  ROW NAM ( LEC , IMP , FLAG 2 , NROW , ROWMNE1 , NR , NRO , 
1  NRIN,ROWMNE2, IJ,A,3) 


This  subroutine  is  used  for  assignment  of  row  mnemonics 


ARGUMENTS 


LEC  :  The  logical  urn: 

terminal . 

IMP  :  The  logical  unit 

terminal . 

FLAG2  :  The  correspond 

NROW  :  The  number  of 

R0WMNE1  :  Array  storing 

MR  :  The  number  of 

NRO  :  The  numbers 

been  assigned. 
NRIN  :  The  invert  rel 

R0WMNE2  :  Array  storing 

IJ  :  The  number  of 

A,B  :  Arrays  storing 

starts  a  set 
correspond i ng 


unit  number  for  writing  on 


number  for  reading  from  th 

ing  flag  for  rows, 
rows . 

the  row  mnemonic  names, 
assigned  row  mnemonic  names, 
of  rows  for  which  names  hav 

ative  addresses  of  RCWMNE . 
the  mnemonics  of  sets  of  rows 
assigned  tracing  extrema  sets 
the  mumber  of  row  on  whic 
of  common  name  rows  and  th 
on  which  ends  the  set. 


IMPLICIT  INTEGERS  (I-M) 

INTEGER* 2  LEC, IMP, NROW, IJ,FLAG2(4) ,A( 128) , 3(128) 
1  NRO (128) , NR I N ( 2  0  4  8 ) 

CHARACTER*!  IND 

CHARACTER* 2 4  R0WMNE1 ( 2048 ) , RCWMNE 2 ( 128) , NAME 
I  DUM=  1 

DO  WHILE  ( IDUM.EQ. 1) 

I  D(JM=0 

WRITE( IMP, 400) 

READ( LEC, 200 )  IND 
IF  ( IND.EQ. ' 1 ' )  THEN 
FLAG2 ( 1 ) = 1 
1  =  1 
NR=  1 

DO  WHILE ( I . NE . 0 ) 

WRITE ( IMP, 510) 

READ( LEC , 100 )  I 
IF  ( I . EQ . 0 )  THEN 
NR=NR- 1 

CALL  EXSHl ( NRO , NRIN , NR , 1 ) 

RETURN 

ELSE 

NRO ( NR ) = I 
WRITE ( IMP, 500  ) 

READ ( LEC, 200 )  NAME 
ROWMNE1 ( NR) = NAME 
END  IF 
NR=NR+ 1 
END  DO 

ELSE  IF  (IND.EQ. ’2’)  THEN 
FLAG2 ( 2 ) = 1 
1 


do  while( i .me. o ) 

I DUM  = 1 

DO  WHILE ( IDUM.EQ. 1) 

ID(JM=0 

WRITE ( IMP , 600 )  IJ 
READ( LEC, 100 )  I 
IF  ( I . NE . 0 )  THEN 

IF  (I.LE.NROW)  THEN 
A (  IJ)  =  I 
ELSE 

WRITE ( IMP, 800 ) 

I DUM= 1 
END  IF 
ELSE 

IJ=IJ-1 
RETURN 
END  IF 
END  DO 
JDUM= 1 

DO  WHILE ( JDUM.EQ. 1 ) 

JDUM=Q 

WRITE ( IMP , 700 ) 

READ ( LEC ,100)  J 
IF  (J.LE.NROW)  THEN 
B  (  I J ) =J 

WRITE ( IMP, 900 ) 

READ( LEC, 200 )  ROWMNE2(IJ) 

IJ-IJ+1 
ELSE 

WRITE ( IMP, 800) 

JDUM= 1 
END  IF 
END  DO 
END  DO 
IDUM-1 

ELSE  I F ( I ND . EQ . '  ’)  THEN 

RETURN 
ELSE 

WRITE ( IMP, 1000 ) 

IDUM-1 
END  IF 
END  DO 
RETURN 

100  FORMAT (15) 

200  FORMAT ( A2  4 ) 

400  FORMAT ( ///4X, ' Row  by  row  :1’/4X, 

1  'By  set  of  rows  :2'/'$',3X, 

2  ' Answer  :  '  ) 

500  FORMAT( ' $ ' , 3X , ' Ass ign  mnemonic 

510  FORMAT (/'$', 3X ' Ass ign  row  number ( <CR>  to  RETURN) 
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600 


9 


900 

1000 


FORMAT (/// 4X ,  'Common  name  set  : ' , I  5/ ' S ' , 3X , 

1  ' From  rov  : ' ) 

FORMAT ( ' $ ' , 3X, ’To  row  : ' ) 

FORMAT ( ///3X , 'THE  ASSIGNED  ROW  NUM3ER  EXEEDS  THE  NUM3ER' , 
1  '  OF  ROWS ! ! ' ) 

FORMAT ( ’ $ ' , 3X, ' Name  : ' ) 

FORMAT ( ///5X , ' INVALID  CHARACTER! ! ' ) 

END 


Q****************************************************x******* 

SUBROUTINE  ROWSUP ( LEC , IMP , FLAG2 , NCOL , NRCW , SUP! , SUP 2 , SN , 
1  ROWMNE2 ,  A ,  3  ) 

c 

C  Row  suDDression 

C  ARGUMENTS 


FLAG  2 

NCOL 

NRCW 

SUP1 , SUP2 


SN 

ROWMNE2 
A ,  B 


The  logical  unit  number  for  writing  on  the 
terminal . 

The  logical  unit  number  for  reading  from  the 
terminal. 

:  The  corresponding  flag  for  rows. 

:  The  number  of  columns. 

:  The  number  of  rows. 

:  Arrays  storing  the  number  of  row  on  which 
starts  suppression  of  rows  and  the 

corresponding  on  which  ends  the  suppression. 

:  The  number  of  assigned  suppressions. 

:  Array  storing  the  mnemonics  of  sets  of  rows. 

:  Arrays  storing  the  mumber  of  row  on  whi  ' 
starts  a  set  of  common  name  rows  and  t.ic 
corresponding  on  which  ends  the  set. 


^^Ir****************************^- 

IMPLICIT  I NTEGER* 2  (I-N) 

INTEGER* 2  SN,FLAG2(4) ,SUP1(128) ,SUP2(128) ,A( 128) ,3 

CHARACTER* 1  IND 

CHARACTER* 2 4  NAME , ROWMNE2 ( 1 2 8 ) 

FLAG2 ( 3 ) = 1 
WRITE ( IMP, 50 ) 

READ(LEC,60)  IND 
IF  ( IND. EQ. ' 1' )  THEN 

CALL  SUP (LEC, IMP , NCOL , NROW , SUP 1 , SUP 2 , SN ) 

ELSE  IF  ( IND . EQ . ' 2 ' )  THEN 
IF  ( FLAG2 ( 2 ) . EQ . 1 )  THEN 
SN=  1 
NAME= ' A ' 

DO  WH I LE ( NAME . NE . '  ' ; 

WRITE( IMP, 70 )  SN 
READ ( LEC , 80 )  NAME 


U  X 


DO  WH  I  LS  (  NAME  .  NE  .  RCWMNE 2  0) 

I  =  I  -r  i 

END  DO 

I F  ( NAME . NE . ’  ' )  THEN 

SUP1 ( SN ) = A ( I ) 

SUP 2 ( SN ) =B ( I ) 

ELSE 

SN=SN- 1 

CALL  SUPSET ( LEC , IMP , NCOL , NROW , SUP1 , SUP 2 , SN ) 
RETURN 
END  IF 
SN=SN+1 
END  DO 
ELSE 

WRITE ( IMP, 500 ) 

RETURN 
END  IF 
END  IF 

FORMAT ( ///4X ,  ’ By  mumber  of  rows  :1’/4X, 

1  ’By  row  set  name  :2'/'$',3X, 

2  ' Answer  : ' ) 

FORMAT (A) 

F0RMAT(///4X, ’Suppression  15 3X, ' Set  name  :') 
FORMAT (A2 4 ) 

FORMAT ( ///4X Suppress  ion  : ' , I  5/ ' $  1 , 3X , ' From  row  :') 
FORMAT (15) 

FORMAT (///4X, 'THE  ASSIGNED  NUMBER  IS  GREATER  THAN  THE', 

1  /18X ,  '  NUMBER  OF  ROWS’) 

FORMAT ( ' $ ' , 3X , ' To  row  :') 

FORMAT ( ///4X, ' SETS  WITH  COMMON  MNEMONICS  HAVE'/ 

1  10X,  '  NOT  BEEN  ASSIGNED!!') 

END 

★  ★****************************************************** 

SUBROUTINE  SUP (LEC, IMP , NCOL , NROW , SUP 1 , SUP2 , SN ) 
******************************************************** 

ARGUMENTS 


LEC  :  The  logical  unit  number  for  writing  on  the 

terminal . 

IMP  :  The  logical  unit  number  for  reading  from  the 

terminal . 

NCOL  :  The  number  of  columns. 

NROW  :  The  number  of  rows. 

SUP1,SUP2  :  Arrays  storing  the  number  of  row  on  which 
starts  suppression  of  rows  and  the 
corresponding  on  which  ends  the  suppression 
:  The  number  of  assigned  suppressions. 


SN 


REAL *4  Y ( 123  > 

INTEGER* 2  SN ,  SUP  1  <  1 2 3  )  ,SU?2C23)  ,NORCW(2C43)  ,  NO  i  2 
CHARACTER*  7  MCDRCW 
CHARACTER* 4 5  DEVOIR, NAME* 10 

DATA  MODRCW/' rows' /DEVD I R,  NAME/ 'DL'AO  '/ 

1  LOGOLD , LOGNEW/ 2,3/ 

Assign  files. 

WRITE ( IMP, 10C ) 

NBYTES=NCOL*4 

CALL  FICH  (' 069 ', LOGOLD, 1 , DEVOIR, NAME, NRCW, MBYTES 
1  ' DIRECT' , LEC, IMP) 

WRITE ( IMP, 200 ) 

NBYTES  =  NCOL*  4 

CALL  FICH  (' 069 ', LOGNEW, 1 , DEVOIR, NAME, NRCW, MBYTES 
1  'DIRECT' , LEC, IMP) 

Input  chain  of  numbers,  or  '-'  to  assign 

suppressions . 

CALL  ANAD I S ( LEC , IMP , NROW , NRCW , NOROW , NBRCW , MODRCW  ) 
Sort  NORCW ( ) 

CALL  EXSH1 (NOROW, NO, NBRCW, 1) 

Phase  I  :  Copy  non-suppressed  Data. 


J  =  0 
K=  1 

DO  1=1, NROW 

READ  (LOGOLD' I)  ( Y ( L ) , L= 1 , NCOL ) 

IF  ( I.EQ.NOROW(K) )  THEN 
K  =  K+  1 
ELSE 

J=J  +  1 

WRITE ( LOGNEW' J)  ( Y ( L ) , L= 1 , NCOL ) 

END  IF 
END  DO 

Phase  II  :  SUP1,  SUP2  and  SN  generation  for  Heade 

SUP1( l)=NOROW( 1) 

SN=0 

DO  1=1, NBROW 

'  IF ( NOROW ( 1+1) ,NE. NOROW ( I )  + 1 )  THEN 
SN=SN+ 1 

SUP2 ( SN  ) =NOROW ( I  ) 


sup i ( sm- i )  =ncrcw<  : ) 

END  IF 
END  DO 

NROW = NROW- N3R0W 
CLOSE (LOGOLD) 

CLOSE  { LCGNEW ) 

RETURN 

FORMAT(/’$' ,3X, 'Assign  no.  of  the  ' 'CL D’’  direc 
1  '  access  file  :'/4X, 44 ('-')) 

FORMAT (/'$', 3X Ass ign  no.  of  the  ''NEW'  direc 
1  '  access  file  : '/4X,44( '-' ) ) 


SUBROUT  I NE  SUPSET ( LEC , IMP , NCOL , NROW , SUP  1 , SUP  2 , SN ) 


Used  to  supress  the  rows  that  correspond  to  tne  ass:g: 
set  with  common  name. 

ARGUMENTS 


LEC  :  The  logical  unit  number  for  writing  on  t 
terminal. 

IMP  :  The  logical  unit  number  for  reading  from 
terminal . 

NCOL  :  The  number  of  columns. 

NROW  :  The  number  of  rows. 

SUP1,SUP2  :  Arrays  storing  the  number  of  row  on  whi 
starts  suppression  of  rows  and  t 
corresponding  on  which  ends  the  suppressio 
SN  :  The  number  of  assigned  suppressions. 


IMPLICIT  INTEGER*  2  (I-N) 

REAL *4  X( 128 )  , Y( 128  ) 

I NTEGER* 2  SN, SUP1 ( 128 )  , SUP2 ( 123 ) 
CHARACTER* 4 5  DEVD I R , NAME* 10 


DATA  DEVOIR, NAME/ ' DUAO  '/ 

DATA  LOGOLD , LOGNEW/ 2,3/ 

Assign  files. 

WRITE ( IMP, 100  ) 

NBYTES=NCOL*4 

CALL  FICH  (' 069' , LOGOLD, 1,DEVDIR, NAME, NROW, NBY 


ffl 


1  DIRECT  ,  LEC  ,  IMP  ) 

WRITE ( IMP, 200) 

MBYTES =NCOL* 4 

CALL  FICK  ('069',  LOGNEW  ,  1  ,  DEVD I R ,  NAME  ,  NRCW  ,  MBYTE 
1  'DIRECT' , LEC, IMP) 

Supress  the  row  between  SU?1()  and  SU?2(). 

J  =  1 
1  =  1 
L=  1 

DO  WHILE  ( I . LE.NROW) 

IF  (J.LE.SN)  THEN 

IF  (SUPl(J) .NE. I )  THEN 

READ  (LOGOLD'I)  ( X ( K ) , K= 1 , NCCL ) 

WRITE ( LOGNEW ' L )  (X(K) ,X=l,NCOL) 

L=L+ 1 
1  =  1  +  1 
ELSE 

1=1+ ( SUP 2 ( J ) -SUPl ( J ) +1 ) 

IF  (J.LE.SN)  THEN 
J=J+1 
END  IF 
END  IF 
ELSE 

READ  (LOGOLD'I)  ( X ( K ) , K=1 , NCOL ) 

WRITE ( LOGNEW' L)  (X(K) ,K=l,NCOL) 

L=L+ 1 ' 

1  =  1  +  1 
END  IF 
END  DO 
NROW=L-l 
CLOSE (LOGOLD) 

CLOSE (LOGNEW) 

RETURN 

FORMAT(/’ $’ ,3X, ’Assign  no.  of  the  ’ ’ OLD 1  ’  direct 
1  ’  access  file  : ’ /4X, 44 ( ' - ' ) ) 

FORMAT (/'$' ,3X, 'Assign  no.  of  the  ''NEW’’  direct 
1  '  access  file  : ’ /4X , 4  4 ( '  —  '  ) ) 


SUBROUT  I NE  WR I  TER ( LOGN , FLAG1 , FLAG2 , NCOL , NROW , XMN , NNU , NN , 

1  NM, I J , A , 3 , COLMNE , NC , NCO , NC I N , RM I N , RMAX , 

2  NT , NTR , NT  I N , NKEY , MNE , NRANK , MRANK , 

3  ROWMNE1 , NR , NRO , NRI N , RCWMNE2 , SUP 1 , SUP 2 , 

4  SN, NOROW, NBRCW) 


This  sub: 
regard  i  r.g 

ARGUMENTS 


LOGN 

FLAG1 


FLAG2 

NCOL 

NROW 

KMN 

NNU 

NN 

NM 

IJ 
A,  B 


COLMNE 

NC 

NCO 

NC  I N 

RM I N , RMAX 


NT 

NTR 

NT  IN 
NKEY 

MNE 

NRANK 

MRANK 

ROWMNEI 

NR 

NRO 

NR  IN 
ROWMNE2 
SUP1 ,SUP2 


out  me  is  used  to  write  the  informations 
the  header  on  a  sequential  file. 


:  The  logical  unit  for  the  file  on  which  the 
header,s  data  will  be  stored. 

:  Integer  array  of  six  elements  used  as  fla 
to  indicate  the  existence  or  not  of  t h 
several  informations  regarding  the  columns. 

:  The  corresponding  flag  for  rows. 

:  The  number  of  columns. 

:  The  number  of  rows. 

:  The  number  of  column  names  used  for  ranking. 

:  The  number  of  columns  used  for  ranking. 

:  The  number  of  repeated  sortings  according 
column  numbers. 

:  The  number  of  repeated  sortings  according 
column  mnemonic  names. 

:  The  number  of  assigned  tracing  extrema  sets. 

:  Arrays  storing  the  mumber  of  row  or.  which 
starts  a  set  of  common  name  rows  and  the 
correspond! ng  on  which  ends  the  set. 

:  Array  storing  the  column  mnemonic  names. 

:  The  number  of  assigned  column  mnemonic  names 

:  The  numbers  of  columns  for  which  names  have 
been  assigned. 

:  The  invert  relative  addresses  of  COLMNE. 

:  Arrays  storing  the  minimum  and  maximum 
values  between  which  tracing  of  the  data  is 
going  to  take  place. 

:  The  number  of  columns  for  which  tracing 
extrema  have  been  assigned. 

:  The  column  numbers  for  which  tracing  extrema 
have  been  assigned. 

:  The  invert  relative  addresses  of  RM I N , RMAX . 

:  Array  storing  the  numbers  of  columns  which 
will  be  used  as  sorting  guides. 

:  Array  storing  the  names  of  columns  which 
will  be  used  as  sorting  guides 

:  Array  storing  the  numbers  of  columns  that 
assign  the  ranking  of  data 

:  Array  storing  the  names  of  columns  that 
assign  the  ranking  of  data. 

:  Array  storing  the  row  mnemonic  names. 

:  The  number  of  assigned  row  mnemonic  names. 

:  The  numbers  of  rows  for  which  names  have 
been  assigned. 

:  The  invert  relative  addresses  of  RCWMNE. 

:  Array  storing  the  mnemonics  of  sets  of  rows. 

:  Arrays  storing  the  number  of  row  on  which 


L  32 


(t>  iO 


SM 

N'CRCW 


C 

c 

c 

c 

c 

c 

c 

c 

c 


N3RGW 


starts  suppression  of  rows  and  t 
corresponding  on  which  ends  the  suppress  ic 
The  number  of  assigned  suppressions. 

Array  the  numbers  of  rows  used  as  guides  f 
the  ranking  of  the  rows. 

The  number  of  row  numbers  used  for  r 
ranking . 


★  ★★★★A****************************************************-* 


P 


IMPLICIT  INTEGERS  (I-N) 

INTEGER*2  SN,FLAG1(6)  ,FLAG2(4)  ,A(  128)  ,3(128)  ,NKEY(123 

1  NRANK (128) ,SUP1(128) ,SUP2(128) ,MCO( 123) , 

2  NCIN( 128 ) ,NRO( 128 ) ,NTR( 128 ) ,NTIN( 128 ) , 

3  NR I N ( 2  0  4  8 ) , NCRCW (2048) 

CHARACTER* 2 4  COLMNE( 128 ) ,MNE( 128 ) , MRANK ( 128 )  , 

1  ROWMNE1 ( 2043 ) ,RCWMNE2( 128) 

REAL* 4  RM I N ( 1 2 8 ) , RMAX (128) 


WR I TE ( LOGN ,200)  NCOL , NROW , NC , NR , I J , NT , KMN , NNU , NN , NM , 3N 

1  NBROW 

WRITE ( LCGN , 100 )  ( FLAG1 ( I ) , I = 1 , 6 ) 

IF  (FLAGK  1)  .EQ.  1)  THEN 

WRITE ( LOGN, 300)  ( COLMNE ( I ) , I = 1 , NC ) 

WRITE(LOGN, 100)  (NCO( I ) , 1=1, NC) 

WRITE ( LOGN , 100)  (NCIN( I ) , 1=1, NC) 

END  IF 

IF  (FLAG1( 2) .EQ. 1)  THEN 

WRITE ( LOGN, 400 )  ( RMIN( I ) , I =1 , NT ) 

WRITE ( LOGN, 400 )  ( RMAX ( I ) , 1=1, NT) 

WRITE (LOGN, 100)  ( NTR ( I ) , I = 1 , NT ) 

WRITE(LOGN, 100)  ( NT  IN ( I )  ,  I  =  1 , NT ) 

END  IF 

WRITE(LOGN, 100)  ( FLAG2 ( I )  ,  I  =  1 , 4  ) 

IF  ( FLAG2 ( 1 ) .EQ. 1)  THEN 

WRITE  (LOGN,  300)  (ROWMNEK  I  )  ,  1  =  1, NR) 

WRITE(LOGN, 100)  ( NRO ( I ) , I = 1 , NR ) 

WRITE(LOGN, 100)  ( NRI N ( I ) , 1=1, NR) 

END  IF 

IF  ( FLAG2 ( 2 ) . EQ , 1 )  THEN 

WRITE( LOGN, 300)  (ROWMNE2( I ) , 1=1, IJ) 

WR I TE ( LOGN ,100)  ( A ( I ) , I = 1 , I J ) 

WRITE (LOGN, 100)  ( B ( I ) , I = 1 , I J ) 

END  IF 

IF  (FLAG1( 3) . EQ . 1 )  THEN 

WRITE (LOGN, 100)  ( NKEY ( I ) , I = 1 , NN ) 

END  IF 

IF  (FLAG1( 4) .EQ. 1)  THEN 

WRITE(LOGN, 300)  ( MNE ( I ) , I = 1 , NM ) 

END  IF 

IF  (FLAG1( 5) .EQ. 1)  THEN 

WRITE ( LOGN , 100)  ( NRANK ( I ) , I = 1 , NNU ) 
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END  IF 

IF  <  FLAG1 ( 6 )  . EQ . 1 )  THEN 

WRI TE  (  LCGN  ,300)  '■  MRANK  f  I  )  ,  I  =  1 ,  KMN  ! 

END  IF 

IF  (FLAG2(  3  )  .  EQ  .  1)  THEN- 

WRITE  (LCGN,  100)  (  SL’Pl  (  I  )  ,  I  =  1 ,  SN ) 

WR I TE ( LCGN ,100 )  ( SU?2 ( I ) , 1=1 , SN) 

END  IF 

IF  (  FLAG2  (  4  )  .  EQ .  1 )  THEN- 

WRI  TE  (  LCGN ,  i  0  0  )  ( NCROW ( I ) , 1=1 ,N3RCW) 

END  IF 

100  FORMAT (15) 

200  FORMAT (1215) 

300  FORMAT ( X , A24 ) 

400  FORMAT (FI  4. 6) 

RETURN 

END 


SUBROUT  I NE  READER ( LCGN , FLAG  1 , FLAG2 , NCOL , NRQW , KMN , NNU , NN , 

1  NM , I J , A , 3 , COLMNE , NC , NCO , NC I N , RM I N , RMAX , 

2  NT , NTR , NT  I N , NKEY , MNE , NRANK , MRANK , 

3  RCWMNE 1 , NR , NRO , NR I N , ROWMNE  2 , SU? 1 , SU  ?  2 , 

4  SN, NOHOW, N3R0W) 
************************************************** 


This  subroutine  is  used  to  record  the  informations 
regarding  the  header  on  a  sequential  file. 


ARGUMENTS 


LCGN  :  The  logical  unit  for  the  file  on  which  the 

header, s  data  will  be  stored. 

FLAG1  :  Integer  array  of  six  elements  used  as  fla 

to  indicate  the  existence  or  not  of  th 
several  informations  regarding  the  columns. 

FLAG2  :  The  corresponding  flag  for  rows. 

NCOL  :  The  number  of  columns. 

NROW  :  The  number  of  rows. 

KMN  :  The  number  of  column  names  used  for  ranking. 

NNU  :  The  number  of  columns  used  for  ranking. 

NN  :  The  number  of  repeated  sortings  according 

column  numbers. 

NM  :  The  number  of  repeated  sortings  according 

column  mnemonic  names. 

IJ  :  The  number  of  assigned  tracing  extrema  sets. 

A , B  :  Arrays  storing  the  mumber  of  row  on  which 

starts  a  set  of  common  name  rows  and  the 
corresponding  on  which  ends  the  set. 

:  Array  storing  the  column  mnemonic  names. 

:  The  number  of  assigned  column  mnemonic  names 


COLMNE 

NC 


cr>  0) 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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c*** 


NCIN 

RM : N , RMAX 


NT  IN 
NKEY 


NRANK 

MRANK 

R0WMNE1 

NR 

NRO 

NR  IN 
ROWMNE2 
SUP1 ,SUP2 


SN 

NO  ROW 
NBRCW 


**********: 


The  numbers  o:  co-umr.s  :or  vn:c 
beer1,  assigned. 

The  invert  relative  addresses  o 
Arrays  storing  the  .minimum 
values  between  which  tracing  o 
going  to  ta<e  place. 

The  number  of  columns  for  wh 
extrema  have  been  assigned. 

The  column  numbers  for  which  tr 
have  been  assigned. 

The  invert  relative  addresses  o 
Array  storing  the  numbers  of  c 
will  be  used  as  sorting  guides. 
Array  storing  the  names  of 
will  be  used  as  sorting  guides 
Array  storing  the  numbers  of 
assign  the  ranking  of  data 
Array  storing  the  names  of 
assign  the  ranking  of  data. 
Array  storing  the  row  mnemonic 
The  number  of  assigned  row  mr.em 
The  numbers  of  rows  for  whi 
been  assigned. 

The  invert  relative  addresses  o 
Array  storing  the  mnemonics  of 
Arrays  storing  the  number  of 
starts  suppression  of  rows 
corresponding  on  which  ends  the 
The  number  of  assigned  suppress 
Array  the  numbers  of  rows  used 
the  ranking  of  the  rows. 

The  number  of  row  numbers 
ranking . 


names  nave 


f  CCLMNE. 
and  maximum 


—  a  _  c.  .  is 


acme  extrem. 


Of  RM I N , RMAX . 
columns  v  n  i  c  r. 


co.umns  w men 


co.umns  t.nat 


co  iumr.s 


names . 
oni.c  names, 
ch  names  have 


f  RCWMNE. 
sets  of  rows, 
row  on  which 
and  the 
suppress  ion. 
ions . 

as  guides  for 
used  for  row 


■★★★★★★★★★★★★★★★★XT******* 


IMPLICIT  INTEGER* 2  (I-N) 

INTEGER* 2  SN,FLAG1(6) , FLAG2(4)  ,A(128), 3(128) , NKEY  <  123)  , 

1  NRANK ( 123 ) ,SUP1( 128 ) , SUP 2 ( 128 ) ,NCO( 128), 

2  NRO ( 128 ) , NTR ( 1 2 8 ) , NC I N ( 1 2 8 )  , NT  I N ( 1 2 8 )  , 

3  NR I N ( 2  0  4  8 ) , NORCW (  2048) 

CHARACTER* 2 4  COLMNE ( 128 ) , MNE ( 128 ) , MRANK ( 123 ) , 

1  ROWMNEH  2048)  ,ROWMNE2(  128) 

REAL*4  RM I N ( 1 2 8 ) , RMAX (123) 

READ ( LOGN ,200  )  NCO  L , NRCW , NC , NR , I J , NT , KMN , NNU , NN , NM , S  N , 

1  NBROW 

READ( LOGN, 100)  (FLAGl(I) ,1=1,6) 

IF  ( FLAG1 ( 1 ) . EQ . 1 )  THEN 

READ ( LOGN , 300)  ( COLMNE ( I ) , 1=1, NC) 

RE AD ( LOGN, 100 )  ( NCO ( I ) , I = 1 , NC ) 

READ( LOGN, 100 )  ( NC I N ( I ) , I = 1 , NC ) 
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IF  ( FLAG! ( 2 ) . 
READ ( LOGN , 
READ ( LCGN , 
READ ( LOGN, 
READ ( LOGN , 
END  IF 

READ( LOGN, 100 
IF  ( FLAG2 ( 1 ) . 
READ ( LOGN, 
READ ( LOGN, 
READ ( LOGN, 
END  IF 

IF  ( FLAG2 ( 2) . 
READ ( LOGN , 
READ (LOGN, 
READ ( LOGN, 
END  IF 

IF  ( FLAG1 ( 3 ) . 

READ (LOGN, 
END  IF 

IF  ( FLAG1 ( 4  )  . 

READ ( LOGN , 
END  IF 

IF  ( FLAG1 ( 5  )  . 

READ (LOGN, 
END  IF 

IF  ( FLAG1 ( 6  )  . 

READ (LOGN, 
END  IF 

IF  ( FLAG2 ( 3 ) . 
READ (LOGN, 
READ (LOGN, 
END  IF 

IF  ( FLAG2 ( 4 ) . 

READ ( LOGN , 
END  IF 
FORMAT (15) 
FORMAT ( 1215) 
FORMAT ( X , A2  4 ) 
FORMAT (F14. 6) 
RETURN 


EQ . 1 )  THEN 

400)  (RMIN( I ) , 1=1, NT) 

400)  (RMAXi I ) , 1=1, NT) 

100)  (NTR( I ) , 1=1, NT) 

100)  ( NT  I N ( I ) , I  =  1 , NT ) 

)  (FLAG2( I ) , 1=1,4) 

EQ . 1 )  THEN 

300  )  (ROWMNEK  I  )  ,  1  =  1,  NR) 
100)  (NRO( I) , 1=1, NR) 

100)  ( NR IN ( I ) , I =1 , NR) 

EQ.l)  THEN 

300  )  ( ROWMNE  2(1), 1  =  1, IJ) 
100)  (A( I ) , 1=1, IJ) 

100)  (B( I ) , 1=1, IJ) 

EQ.l)  THEN 

100)  ( NKEY ( I ) , I = 1 , NN ) 

EQ.l)  THEN 

300)  (MNE( I ) , 1=1, NM) 

EQ.l)  THEN 

100)  ( NRANK ( I ) , I = 1 , NNU ) 
EQ.l)  THEN 

300)  ( MRANX ( I ) , I = 1 , KMN ) 
EQ.l)  THEN 

100)  (SUP1( I ) , 1=1, SN) 

100)  ( SUP2 ( I ) , I =1 , SN) 

EQ.l)  THEN 

100)  ( NORCW ( I ) , I = 1 , NBROW ) 


******** 


SUBROUTINE  CD  IS?  ( LEC ,  IMP , FLAG  1 , NCOL , COLMNE , NC , NCO , NC I N , 

1  RMI N , RMAX , NT , NTR , NT  I N , NKEY , MNE , NN ,  NM  , 

2  NRANK , MRANK , NNU , KMN ) 


This  subroutine  is  used  to  display  on  the  screen  the 
column  informations  of  the  header. 
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ARGUMENTS : 


LEC 

IMP 

FLAG1 


NCOL 

COLMNE 

NC 

NCO 

NC  I N 

RMIN, RMAX 


NT 

NTR 

NT  IN 
NKEY 

MNE 

NN 

NM 

NRANK 

MRANK 

NNU 

KMN 


The  logicalunit  number  for  writing  or.  the 
terminal . 

The  logical  unit  number  for  reading  from  the 
terminal . 

Integer  array  of  six  elements  used  as  fla 
to  indicate  the  existence  or  not  of  th 
several  informations  regarding  the  columns. 
The  number  of  columns. 

Array  storing  the  column  mnemonic  names. 

The  number  of  assigned  column  mnemonic  names 
The  numbers  of  columns  for  which  names  have 
been  assigned. 

The  invert  relative  addresses  of  COLMNE. 
Arrays  storing  the  minimum  and  maximum 
values  between  which  tracing  of  the  data  is 
going  to  take  place. 

The  number  of  columns  for  which  tracing 
extrema  have  been  assigned. 

The  column  numbers  for  which  tracing  extrema 
have  been  assigned. 

The  invert  relative  addresses  of  RMIN, RMAX. 
Array  storing  the  numbers  of  columns  which 
will  be  used  as  sorting  guides. 

Array  storing  the  names  of  columns  which 
will  be  used  as  sorting  guides. 

The  number  of  repeated  sortings  according 
column  numbers. 

The  number  of  repeated  sortings  according 
column  mnemonic  names. 

Array  storing  the  numbers  of  columns  that 
assign  the  ranking  of  data 

Array  storing  the  names  of  columns  that 
assign  the  ranking  of  data. 

The  number  of  columns  used  for  ranking. 

The  number  of  column  names  used  for  ranging. 


IMPLICIT  INTEGER*2  (I-N) 

INTEGER* 2  LEC, IMP , LOGN , NCOL , NROW , NN , NM , NNU , KMN , IJ, 

1  NTR ( 128 ) , FLAG2 ( 4 ) , NKEY ( 128 ) , NRANK ( 128),Ail23), 

2  B ( 128 ) , NCO ( 128) , NCI N( 128) , NT  IN ( 128)  , FLAG  1 ( 6) 
REAL*4  RMIN( 128 ) , RMAX ( 128 ) 

CHARACTER* 1  IND 

CHARACTER* 2 4  FNAME , COLMNE ( 128 ) , MNE ( 128 ) , MRANK ( 128 ) 

WRITE ( IMP, 100 ) 

WRITE( IMP, 200 )  NCOL 
IF  (FLAG1( 1) .EQ.l)  THEN 
WRITE { IMP, 300 ) 


ID  iO 


WRITE  (  IMP,  400  )  N'COi  I  )  ,  COLMNS  (  N*C  IN  (  I  >  ) 

END  DO 
END  IF 

I F  ( FLAG1 ( 2 ) . EQ . 1 )  THEN 
WRITE ( IMP, 500 ) 

DO  1=1, NT 

WRITE ( IMP, 600 )  NTR( I )  , RM I N { NT  I N ( I )  )  , RMAX ( NT  I N  »  I )  ) 
END  DO 
END  IF 

IF  ( FLAG1 ( 3 ) . EQ . 1 )  THEN 
WRITE ( IMP, 700 ) 

DO  1=1, NN 

WRITE( IMP, 800  )  NKEY(I) 

END  DO 
END  IF 

IF  ( FLAG1 ( 4 ) . EQ. 1 )  THEN 
WRITE ( IMP, 900 ) 

DO  1=1, NM 

WRITE( IMP, 1000 )  MNE(I) 

END  DO 
END  IF 

IF  ( FLAG1 ( 5) .EQ. 1 )  THEN 
WRITE ( IMP, 1100  ) 

DO  1=1, NNU 

WRITE( IMP, 1200 )  NRANK(I) 

END  DO 
END  IF 

IF  ( FLAG1 ( 6 ) .EQ. 1)  THEN 
WRITE( IMP, 1300  ) 

DO  1=1, KMN 

WRITE ( IMP, 1400 )  MRANK(I) 

END  DO 
END  IF 

READ(LEC, 1500 )  IND 
IF  ( IND.EQ. ’  ’ )  THEN 

WRITE( IMP, 1600 ) 

RETURN 
END  IF 

FORMAT ( 20 (/) , 18X, ' C  OLUMN  INFORMATIONS 
1  /,18X, '**********************************»**' 

FORMAT (// 2 7X, ' NUMBER  OF  COLUMNS ’/ 2 7X , 

1  ' - '  //3  IX  ,  I  5  ) 

FORMAT (//27X, 'COLUMN  MNEMONICS ’ /27X, 

1  ' - '/23X, 

2  'Column  number ', 3X ,' Mnemon ic ' /2 3X , 

3  - - .  ) 

FORMAT ( 2 7X, 13 , 11X, A24 ) 

FORMAT (// 2 8X, 'TRACING  EXTREMA ' /28X , 

1  .  ' - '/13X, 

2  'Column  number ', 6X ,' Min imum '  9X Max imum ', /l 3X , 


600 

700 


FORMAT ( 16X, I  3 , 6X , FI4 . 6 , 3X , FI 4 . 6 ) 

FORMAT (//13X, 'COLUMN  NUM3ER  GUIDES  FOR  MULTIPLE  SORT'/ 

2  18X  ,  1 - '  ) 

300  FORMAT ( 3  3  X , 13) 

900  FORMAT (//17X, 'COLUMN  NAME  GUIDES  FOR  MULTIPLE  SORT'/l^X, 

1  ’ - '  ) 

1000  FORMAT ( 4 IX , A2  4 ) 

1100  FORMAT (/22X, 'COLUMN  NUMBERS  FOR  RANKING ' /22X , 

1  ' - '  ) 

1200  FORMAT ( 3 3X , 1 3  ) 

1300  FORMAT (/23X, ’COLUMN  NAMES  FOR  RANKING ' /23X , 

1  ' - '  ) 

1400  FORMAT ( 34X , A24 ) 

1500  FORMAT ( A ) 

1600  FORMAT ( 20 ( / ) ) 

END 

Qkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkffkkkk 

SUBROUT  I NE  RD I SP ( LEC , IMP ,  FLAG 2  ,  NROW ,  RCWMNE 1 ,  NR  ,  N'RO  ,  NR  I N  , 
1  ROWMNE2, I J , A , B , SUP1 , SUP2 , SN , NORCW , N3RCW ) 

r\k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k 

c 

C  ARGUMENTS 

C  - 

c 


c 

LEC 

:  The  logical  unit  number  for  writing  on  the 

c 

c 

IMP 

terminal . 

:  The  logical  unit  number  for  reading  from  the 

c 

c 

LOGN 

terminal . 

:  The  logical  unit  for  the  file  on  which  the 

c 

c 

FLAG1 

header,s  data  will  be  stored. 

:  Integer  array  of  six  elements  used  as  flag 

c 

c 

c 

FLAG  2 

to  indicate  the  existence  or  not  of  the 
several  informations  regarding  the  columns. 

:  The  corresponding  flag  for  rows. 

c 

NCOL 

:  The  number  of  columns. 

c 

NROW 

:  The  number  of  rows. 

c 

COLMNE 

:  Array  storing  the  column  mnemonic  names. 

c 

NC 

:  The  number  of  assigned  column  mnemonic  names 

c 

NCO 

:  The  numbers  of  columns  for  which  names  have 

c 

c 

NCIN 

been  assigned. 

:  The  invert  relative  addresses  of  COLMNE. 

c 

ROWMNE1 

:  Array  storing  the  row  mnemonic  names. 

c 

NR 

:  The  number  of  assigned  row  mnemonic  names. 

c 

NRO 

:  The  numbers  of  rows  for  which  names  have 

c 

c 

NRIN 

been  assigned. 

:  The  invert  relative  addresses  of  RCWMNE. 

c 

ROWMNE2 

:  Array  storing  the  mnemonics  of  sets  of  rows. 

c 

RM I N , RMAX 

:  Arrays  storing  the  minimum  and  maximum 

c  • 

c 

c 

NT 

values  between  which  tracing  of  the  data  is 
going  to  take  place. 

:  The  number  of  columns  for  which  tracing 

NTR 


NT  I N 
NKEY 

MNE 


NN 


NM 

IJ 
A ,  B 


NRANK 

MRANK 

NNU 

KMN 

SUP1 , SUP2 


SN 

NO  ROW 
NBROW 


extrema  have  beer,  assigned. 

The  column  numbers  for  which  tracing  extrem 
have  been  assigned. 

The  invert  relative  addresses  of  RMIN,RMA X. 
Array  storing  the  numbers  of  columns  vhic 
will  be  used  as  sorting  guides. 

Array  storing  the  names  of  columns  vhic 
will  be  used  as  sorting  guides. 

The  number  of  repeated  sortings  accord:." 
column  numbers. 

The  number  of  repeated  sortings  accord:." 
column  mnemonic  names. 

The  number  of  assigned  tracing  extrema  sets 
Arrays  storing  the  mumber  of  row  on  vhic 
starts  a  set  of  common  name  rows  and  th 
corresponding  on  which  ends  the  set. 

Array  storing  the  numbers  of  columns  tha 
assign  the  ranking  of  data 

Array  storing  the  names  of  columns  tha 
assign  the  ranking  of  data 
The  number  of  columns  used  for  ranking. 

The  number  of  column  names  used  for  ranking 
Arrays  storing  the  number  of  row  on  vhic 
starts  suppression  of  rows  and  th 
corresponding  on  which  ends  the  suppress :o 
The  number  of  assigned  suppressions. 

Array  the  numbers  of  rows  used  as  guides  fo 
the  ranking  of  the  rows. 

The  number  of  row  numbers  used  for 
ranking 


IMPLICIT  I NTEGER*  2  (I-N) 

INTEGER* 2  LEC, IMP , LOGN , NCOL , NRCW , NN , NM , NNU , KMN , IJ, SN, 

1  FLAG1 ( 6 )  , FLAG2 {  4  )  , NKEY (123), NRANK ( 1 2 3 )  , A ( 1 2 3  > 

2  B ( 128 ) , NOROW (2048) ,SUP1(128) ,SUP2(128) , 

3  NRO (12  8) , NR  I N (  2  0  4  8 ) 

REAL *4  RM I N ( 1 2  8 ) , RMAX (128) 

CHARACTER*!  IND 

CHARACTER* 2 4  FNAME , COLMNE ( 128 ) , MNE ( 128 ) , MRANK ( 123 ) , 

1  ROWMNE1 ( 2048 ) ,ROWMNE2( 128) , NAME 

WRITE ( IMP, 100 ) 

WRITE ( IMP, 200 )  NROW 
IF  ( FLAG2 ( 1) .EQ. 1)  THEN 
WRITE ( IMP, 300 ) 

DO  1=1, NR 

WRITE ( IMP, 400 )  NRO( I ) , ROWMNE 1 ( NR I N ( I ) ) 

END  DO 
END  IF 

IF  ( FLAG 2 ( 2 ) .EQ.l)  THEN 


M 


WRITE( IMP, 500 ) 

DO  1  =  1,  I J 

WRITE ( IMP, 500 )  I , RCWMNE2 ( I  ) 

DO  J=A( I ) ,3( I ) 

NAME  = '  ' 

K=  1 

DO  WHILE ( K . LE . NR . AND . NAME . EQ . '  ' ) 

IF  ( J . EQ . NRO ( X ) )  THEN 
NAME=ROWMNEl(K) 

END  IF 
K=K+1 
END  DO 

WRITE ( IMP, 610 )  J , NAME 
END  DO 

IF  (I.LT.IJ)  THEN 
WRITE ( IMP, 620 ) 

END  IF 
END  DO 
END  IF 

IF  (FLAG2 ( 3 ) .EQ. 1 )  THEN 
WRITE ( IMP, 700) 

DO  1=1, SN 

IF  ( SUP 1 ( I ) . NE . 0 . AND . SUP2 ( I ) . NE . 0 )  THEN 

WRITE ( IMP , 800 )  I , SUP1 ( I ) , SUP2 ( I ) 

END  IF 
END  DO 
END  IF 

IF  ( FLAG2 ( 4 ) . EQ . 1 )  THEN 
WRITE ( IMP, 1100 ) 

DO  1=1, NBROW 

WRITE( IMP, 1200 )  NOROW ( I ) 

END  DO 
END  IF 

READ( LEC , 900 )  IND 
IF  ( IND.EQ. '  ’ )  THEN 

WRITE ( IMP, 1000 ) 

RETURN 


END  IF 

FORMAT ( 20 ( /) , 20X, ’ R  OW  INFORMATION  S’ 

1  /20X, '*******************************'  ) 

FORMAT ( // 2 9X, 'NUMBER  OF  ROWS ' /29X , 

1  ■ - '  //32X ,  15) 

FORMAT ( //3 OX , 'ROW  MNEMONICS ' /3 OX , 

1  ' - V/23X, 

2  'Row  number ', 6X ,' Mnemon ics ' /2 3X , 

3  • - •  ) 

FORMAT ( 2 5X, I5,11X,A24) 

FORMAT ( //20X, ’ SETS  OF  ROWS  WITH  COMMON  MNEMONICS '/ 20X , 

1  ' - '//20X 

2  ’Set' ,7X, 'Set' ,7X, 'Row' ,7X, 'Row' , 7X/19X, 'Number 

3  3X , ' mnemonic ' 3X , ' numbe  r ’ , 3X , ' mnemonic ' /19X , 


FORMAT ( 17X, I o , 7X, A2  4 ) 

FORMAT ( 3  6X , I5,7X,A24) 

FORMAT ( 19X, ’ - 

FORMAT (// 3 OX,  ' SUPPRESS  IONS ' /30X,  ' - 

1  ' Suppress  ion ' , 

2  3X,'From  row’,3X,'To  rov'/20X, 

3  - - '  ) 

FORMAT (19X, I  5 , 3X , 1 5 , 5X , 1 5 ) 

FORMAT ( A ) 

FORMAT ( 20 (/) ) 

FORMAT ( //30X , 'ROW  RANKING' /30X , ' - 

FORMAT ( 3 2X, 15) 


/  /  2  0  X  , 


SUBROUT  I NE  COLMOD  (  LEC  ,  IMP  ,  FLAG!  ,  NCOL  ,  NRCW  ,  CCLMNE  ,  N'C  ,  NCO 

1  NC I N , RM I N , RMAX , NT , NTR , NT  I N , NKEY , MNE , NN 

2  NM , NRANK , MRANK , NNU , KMN ) 


ARGUMENTS 


LOGN 


FLAG1 


NCOL 

NROW 

COLMNE 

NC 

NCO 

NCIN 

ROWMNE1 

NR 

NRO 

NR  IN 
ROWMNE2 
RM I N , RMAX 


The  logical  unit  number  for  writing  on  the 
terminal . 

The  logical  unit  number  for  reading  from  the 
terminal . 

The  logical  unit  for  the  file  on  which  the 
header, s  data  will  be  stored. 

Integer  array  of  six  elements  used  as  fla 
to  indicate  the  existence  or  not  of  th 
several  informations  regarding  the  columns. 
The  number  of  columns. 

The  number  of  rows. 

Array  storing  the  column  mnemonic  names. 

The  number  of  assigned  column  mnemonic  names 
The  numbers  of  columns  for  which  names  nave 
been  assigned. 

The  invert  relative  addresses  of  COLMNE. 
Array  storing  the  row  mnemonic  names. 

The  number  of  assigned  row  mnemonic  names. 
The  numbers  of  rows  for  which  names  have 
been  assigned. 

The  invert  relative  addresses  of  RCWMNE . 
Array  storing  the  mr.emon  ics  of  sets  of  rows. 
Arrays  storing  the  minimum  and  maximum 
values  between  which  tracing  of  the  data  is 
going  to  take  place. 

The  number  of  columns  for  which  tracing 
extrema  have  been  assigned. 

The  column  numbers  for  which  tracing  extrema 
have  been  assigned. 

The  invert  relative  addresses  of  RM I N , RMAX . 


tracing  extrema 


NT  IN 


(D  tO 


NKEY 


NRANK 


MRANK 


NNU 

KMN 

SUPl , SUP2 


Array  storing  t r.e  numoers  or  columns  w: 
will  be  used  as  sorting  guides. 

Array  storing  the  names  of  columns  w: 
will  be  used  as  sorting  guides. 

The  number  of  repeated  sortings  accor: 
column  numbers. 

The  number  of  repeated  sortings  accord: 
column  mnemonic  names. 

The  number  of  assigned  tracing  extrema  s 
Arrays  storing  the  number  of  row  on  w 
starts  a  set  of  common  name  rows  and 


.  rema 


correspond i 

Lng  on  w'nic 

h  ends  the 

set , 

Array 

stor 

*ing  the 

numbers  of 

columns 

assign 

the 

ranking  of 

data 

Array 

storing  the 

names  of 

coll 

imr  s 

assign 

the 

ranking  of 

data 

The  number 

of  columns 

used  for  : 

-ank : 

L  nc . 

The  number 

of  column 

names  used 

for 

rank 

of 

rows 


Arrays  storing  the  number  of  row  on  w 
starts  suppression  of  rows  and 
corresponding  on  which  ends  the  suppres 
The  number  of  assigned  suppressions. 


row  on  wm 
and  tne 
suDDress ion 


IMPLICIT  INTEGER*2  (I-N) 

I NTEGER* 2  LEC .IMP, LOGN , NCOL , NROW , NN , NM , NNU , KMN , I J , 

1  FLAG1 ( 6 ) , NTR( 128 ) ,FLAG2(4) ,NKEY(128) , 

2  NRANK ( 128) , A( 128 ) , B ( 128 ) ,NCO( 128 ) , NCIN( 123 i , 

3  NT I N ( 128) 

REAL *4  RMI N ( 128 ) , RMAX( 128 ) , RMIND( 128) , RMAXD ( 123 ) 
CHARACTER* 1  IND 
CHARACTER* 7  MODCOL 

CHARACTER*  2  4  FNAME , COLMNE (12  8), MNE (123), MRANK (123)  , NAM 
1  R0WMNE1 ( 2043 ) ,RCWMNE2( 128) , COLMNED ( 123) , 

DATA  MODCOL/’ columns'/ 

I DUM= 1 

DO  WHILE  ( IDUM.EQ. 1 ) 

I DUM=Q 

WRITE ( IMP, 100) 

READ(LEC, 200)  IND 
IF  ( IND.EQ. ’ 1  *  )  THEN 

Column  number  modification 


WRITE( IMP, 300 )  NCOL 
READ ( LEC ,310)  NCOL 
I DUM= 1 


ELSE  IF  (IND.EQ. '2')  THEN 


ruiQ 


1.1  IP  "J  "'ll  ■JMM  ■'l  ■ UP  M  ■  » l«T 


IP11  '.M '.M  'A  ’  ■. ’ *71 "  V  ■>.'  *7  V 


T 


I 

\ 

1: 


J 


C  Column  mnemonic  names  modification 


IF  (FLAG1( 1) .EQ. 1)  THEN 
1  =  1 

DO  WH I LE( I.NE.O) 

WRITE ( IMP, 500 ) 

READ( LEC , 400 )  I 
IF  (I.NE.O) THEN 
J=1 

DO  WH I LE ( NCO ( J ) . NE . I . AND . J . LE . NC ) 

J=J+i 
END  DO 

IF  ( J- 1 . EQ . NC . AND . NCO ( J ) . NE . I )  THEN 
DO  K= 1 , NC 

COLMNED ( K ) =COLMNE ( NC I N ( K ) ) 

END  DO 
DO  K= 1 , NC 

COLMNE ( K ) =COLMNED ( K ) 

END  DO 
NC=NC+ 1 
NCO ( NC ) = I 

WRITE ( IMP, 600)  COLMNE (NC) 

READ( LEC , 700 )  COLMNE (NC) 

CALL  EXSH 1 ( NCO , NC I N , NC , 1 ) 

ELSE 

WRITE ( IMP ,600)  COLMNE (NC IN ( J) ) 

READ ( LEC ,700)  COLMNE ( NC I N ( J ) ) 

END  IF 
END  IF 
END  DO 
I DUM= 1 
ELSE 

WRITE ( IMP, 800 ) 

CALL  COLNAM ( LEC , IMP , FLAG1 , NCOL , COLMNE , NC , NCO , 
1  NCIN) 

END  I F 

ELSE  IF  ( I ND . EQ . 1 3 1 )  THEN 

C  Tracing  extrema  modification 

IF  ( FLAG1 ( 2 ) . EQ. 1 )  THEN 
1  =  1 

DO  WHILE  (I.NE.O) 

WRITE ( IMP, 500  ) 

READ ( LEC , 400  )  I 
IF  (I.NE.O)  THEN 
J  =  1 

DO  WH I LE ( NTR ( J ) . NE . I . AND . J . LE . NT ) 

J=J  +  1 
END  DO 

IF  ( J - 1 . EQ . NT . AND . NTR ( J ) . NE . I )  THEN 
DO  K= 1 , NT 


RM I ND  (  K  )  =  RM I N  (  NT  I N  (  K  )  ' 

RMAXD ( X ) = RMAX ( NT : N i X ) ' 

END  DO 
DO  K  = i , NT 

RM  I N  (  K )  =  RM  I  ND  (  K  ) 

RMAX  (  K )  =  RMAXD  (  K ) 

END  DO 
NT = NT  + 1 
NTR(NT) =1 

WRITE( IMP, 900 )  RMIN(NT) 

READ( LEC, 1700 )  RMIN(NT) 

WRITE( IMP, 1300 )  RMAX ( NT ) 

READ( LEC, 1700 )  RMAX ( NT ) 

CALL  EXSH1 ( NTR , NT  I N , NT , 1 ) 

ELSE 

WRITE (  IMP, 900  )  RM I N ( NT  I N ( J )  > 

READ(LEC, 1700  )  RMI N ( NT  I N i J )  ) 

WRITE( IMP, 1800)  RMAX ( NT  I N ( J i  ) 

READ( LEC , 1700  )  RMAX ( NT  I N < J )  i 
END  IF 
END  IF 
END  DO 
I DUM= 1 
ELSE 

WRITE ( IMP, 1000) 

CALL  EXTREM ( LEC , IMP , FLAG1 , NCOL , NROW , RM I N , RMAX , 

1  NT , NTR ) 

END  IF 

ELSE  IF  ( IND. EQ. ' 4 ' )  THEN 
C  Sorting  guides  modification 

IF  ( FLAG1 ( 3 ) . EQ. 1 )  THEN 

C  Sorting  guides  by  column  number  modification 

WRITE ( IMP, 1100 ) 

WRITE(LEC, 400)  ( NKEY ( I ) , I = 1 , NN ) 

CALL  ANAD I S ( LEC , I MP , NCOL , NCOL , NKEY , NN , MODCOL ) 
CALL  REARKLEC,  IMP  ,  NCOL  ,  NROW  ,  NKEY  ,  NN  ) 

ELSE  IF  ( FLAG1 { 4  > . EQ . 1 )  THEN 
WRITE ( IMP, 1100 ) 

DO  1=1, NM 

WRITE(LEC, 1300  )  MNE(I) 

END  DO 

WRITE ( IMP, 1400 ) 

CALL  ASBYMN ( LEC, IMP , NCOL , COLMNE , NM , MNE ; 

CALL  REAR2 { LEC , IMP , NCOL , NROW , COLMNE , MNE , NM ) 

ELSE 

WRITE! IMP , 1500 ) 

CALL  MULSOR!  LEC  ,  IMP  ,  NCOL  ,  FLAG  I  ,  NRANK  ,  MRANK  ,  N’N'U  , 
1  KMN, COLMNE) 
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ELSE 


1000 

1100 


Ranking  modification 

IF  ( FLAG1 ( 5 ) . EQ . 1 )  THEN 
WRITE ( IMP, 1900 ) 

WRITE ( LEC ,400 )  ( NRANK ( I ) , 1=1 , NNU ) 

CALL  ANAD I S ( LEC , IMP , NCOL , NCCL , NRANK , NNU , MCDCOL ) 
CALL  RANK 1 ( LEC , I MP , NCOL , NRCW , NRANK , NNU > 

ELSE  IF  ( FLAG1 ( 6 ) . EQ . 1 )  THEN 
WRITE ( IMP, 1900) 

DO  1=1, KMN 

WRITE( IMP, 1300)  MRANK(I) 

END  DO 

WRITE ( IMP, 2000 ) 

CALL  AS3YMN ( LEC , IMP , NCOL , COLMNE , KMN , MRANK ) 

CALL  RANK 2 ( LEC , IMP , NCOL , NRCW , MRANK , KMN , COLMNE J 
ELSE 

WRITE( IMP, 2200) 

CALL  CRANK ( LEC , I MP , NCOL , NRCW , FLAG 1 , NRANK , MRANK , 
1  NNU , KMN , COLMNE ) 

END  IF 

ELSE  IF  ( IND.EQ. ’  ')  THEN 

RETURN 
END  IF 
END  DO 
RETURN 

FORMAT(///8X, 'MODIFICATION  SELECTION  TABLE ' /8X, 


- V9X, 

2  'Number  of  columns  l'/9X, 

3  'Mnemonic  names  2’/9X, 

4  'Tracing  extrema  3'/9X, 

5  'Sorting  guides  4'/9X, 

6  'Rank  of  columns  5'//'$',3X, 

7  ' Answer  : ' ) 

FORMAT ( A) 

FORMAT (///, 4X ,' Old  number  of  columns  : '  ,  I  3 , / ' S '  ,  3X , 

1  'Assign  new  number  : ' ) 

FORMAT (13) 

FORMAT ( /4X , 100 ( 20 ( 13, ’,')/) ) 

FORMAT (/,'$', 3X ,' Ass ign  column  number  :') 

FORMAT (///4X, 'Old  name  : ' , A24/ ' $ ' , 3X , 

1  'Assign  new  name  :') 

FORMAT ( A2 4 ) 

FORMAT(///4X, 'MNEMONIC  NAMES  HAVE  NOT  BEEN  ASSIGNED!!') 
FORMAT ( ///4X , 'Old  MIN  : ' , F14 . 6/ ' $ ' , 3X, 

1  'Assign  new  MIN  : ' ) 

FORMAT (///4X, 'TRACING  EXTREMA  HAVE  NOT  3EEN  ASSIGNED!!' 
FORMAT ( ///4X ,' Old  sorting  guides  :') 

FORMAT ( ///4X ,' Ass ign  column  numbers  :') 


,13,/’ 


1300  FORMAT ( / 2X , A2  4 ) 

1400  FORMAT ( ///4X ,' Ass ign  mnemonic  r.a.tes  :') 

1500  FORMAT ( ///4X , ' SORT  I NG  GUIDES  DC  NOT  EXIST!!') 

1600  FORMAT ( /// 4X , ' THE  ASSIGNED  MNEMCNICHAS  NOT  3EENV6X, 

1  '  ASSIGNED  AS  COLUMN  MNEMONIC !!' //4X , 

2  'Assign  next  mnemonic') 

1700  FORMAT ( F14 . 6) 

1800  FORMAT (///4Xf  'Old  MAX  : '  , F14 . 6/ ' $ '  ,  3X  , 

1  'Assign  new  MAX  :') 

1900  FORMAT ( ///4X , ' Old  ranking  :') 

2000  FORMAT ( ///4X ,' Ass ign  new  ranking  guides  :') 

2200  FORMAT ( ///4X , ' RANKING  HAS  NOT  BEEN  ASSIGNED!!’) 

END 


SUBROUTINE  ROWMOD ( LEC , IMP , FLAG2 , NCOL , NROW , ROWMNE 1 , NR , 

1  NRO.NRIN, ROWMNE2 , IJ, A, 3, SUP1 , SU?2 , SN, 

2  NOROW, NBROW) 


ARGUMENTS 


FLAG2 

NCOL 

NROW 

ROWMNE1 

NR 

NRO 

NRIN 
ROWMNE  2 
IJ 
A,  3 


SUP1 ,SUP2 


SN 

NOROW 

NBROW 


The  logical  unit  number  for  writing  on 
terminal . 

The  logical  unit  number  for  reading  from 
terminal . 

The  corresponding  flag  for  rows. 

The  number  of  columns. 

The  number  of  rows. 

Array  storing  the  row  mnemonic  names. 

The  number  of  assigned  row  mnemonic  name: 
The  numbers  of  rows  for  which  names  ! 
been  assigned. 

The  invert  relative  addresses  of  ROWMNE. 
Array  storing  the  mnemonics  of  sets  of  r< 
The  number  of  assigned  tracing  extrema  s< 


row  on 


Arrays  storing  the  mumber  of  row  on  w; 
starts  a  set  of  common  name  rows  and 
corresponding  on  which  ends  the  set. 
Arrays  storing  the  number  of  row  on  wi 
starts  suppression  of  rows  and 
corresponding  on  which  ends  the  suppress 
The  number  of  assigned  suppressions. 
Array  the  numbers  of  rows  used  as  guides 
the  ranking  of  the  rows. 

The  number  of  row  numbers  used  for 
ranking 


row  on  wi 
and 

suDDress 


IMPLICIT  I NTEGER* 2  (I-N) 


►  .*  <v 


-•  .wv 

"AW v* 
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INTEGERS  FLAG2  (4  )  ,  A  i  1 2 3  \  ,  3  (  1 2  5  )  ,  SL'Pl  <  12  6)  ,  SL’?2  •:  12 
1  NRG ( 1 2  3  > , NR I N ( 2  C  4  3  > , SN , NCRCW { 2  3 4  3 ; 

CHARACTER* 1  I ND 
CHARACTER*?  MODRCW 

CHARACTER  *  2  4  ROWMNE  1  (  2043),  RCWMNE  2(123)  ,  RCWMNE  Id  1 
DATA  MODROW/ 1  rows ' / 


I DUM= 1 

DO  WHILE  ( IDCJM.EQ. 1) 

I DUM=0 

WRITE ( IMP, 100 ) 

READ ( LEC ,200)  IND 
IF  ( IND.EQ. ' 1' )  THEN 
WRITE ( IMP, 300 )  NRCW 
READ( LEC, 400 )  NROW 
I DUM= 1 

ELSE  IF  (IND.EQ. '2')  THEN 
IF  ( FLAG2 ( 1 ) . SQ . 1 )  THEN 
1  =  1 

DO  WHILE  ( I . NE . 0 ) 

WRITE ( IMP, 500 ) 

READ ( LEC , 400  )  I 
IF  ( I . NE . 0 )  THEN 
J  =  1 

DO  WHI LE ( NRO ( J ) . NE . I . AND . J . LE . NR ) 
J=J  +  1 
END  DO 

IF  ( J - 1 . EQ . NR . AND . NRO ( J ) . NE . I )  THEN 
DO  K= 1 , NR 

ROWMNE  1 D  (  K  )  =  ROWMNE  H  SRI  SCO) 
END  DO 
DO  K= 1 , NR 

ROWMNE 1 ( K ) = ROWMNE ID ( K ) 

END  DO 
NR=NR+ 1 
NRO ( NR ) = I 

WRITE( IMP, 600 )  RCWMNE 1 ( NR) 

READ( LEC, 700 )  ROWMNE 1 ( Nk) 

CALL  EXSH1 ( NRO , NR IN , NR , 1 ) 

ELSE 

WRITE(  IMP , 60  0 )  RCWMNE 1 ( NRI N f  J ■  ) 
READ ( LEC, 700 )  RCWMNE 1 < NR  IN ( J >  ) 
END  IF 
END  IF 
END  DO 
I DUM= 1 
ELSE 

WRITE ( IMP, 300) 

CALL  ROWNAMf LEC, IMP, FLAG2 , NROW, ROWMNE 1 , NR 
1  NR  I N , RCWMNE 2 ,  I J , A , 3 ) 

END  IF 

ELSE  IF  (IND.EQ.' 3')  THEN 


I F  ( FLAG 2 ( 2 ) . EQ . 1 )  THEN 
WRITE (  IMP , 90 C  ) 

READ ( LEC ,200)  IND 
IF  ( I ND . EQ . ' I ' )  THEN 
1  =  1 

DO  WHILE! I .NS. 0) 

WRITE! IMP, 1000  ) 

READ! LEC, 400  )  I 
IF  ( I . NE . 0 )  THEN 

WRITE!  IMP,  1100  )  I,A(D,3(I) 

READ! LEC, 400)  A  t I ) 

WRITE! IMP, 1200 ) 

READ! LEC, 400)  3(1) 

END  IF 
END  DO 

ELSE  IF  ( I ND . EQ . ' 2 ' )  THEN 
1  =  1 

DO  WHILE! I . NE . 0 ) 

WRITE! IMP, 1100 ) 

READ! LEC, 400  )  I 
IF  ( I . NE . 0 )  THEN 

WRITE! IMP , 1400 )  ROWMNE2 ! I ) 

READ! LEC, 700 )  ROWMNE2 ( I ) 

END  IF 
END  DO 
I DUM= 1 
ELSE 

WRITE! IMP, 1500 ) 

IDUM-1 
END  IF 
ELSE 

WRITE! IMP, 800) 

CALL  ROWNAM! LEC , IMP , FLAG2 , NROW , RCWMNE1 , RCWMNE2 , 
1  I J  ,  A ,  3  ) 

END  IF 

ELSE  IF  !IND.EQ.'4')  THEN 
IF  ( FLAG2 ( 3 ) . EQ . 1 )  THEN 
1  =  1 

DO  WHILE  ( I . NE . 0 ) 

WRITE! IMP, 1600 ) 

READ ( LEC ,400)  I 
IF  ( I . NE . 0 )  THEN 

IF  ( SUP1 ( I ) . EQ . 0 . AND . SUP 2 ( I ) . EQ . 0 )  THEN 
SN=SN+1 

WRITE! IMP, 1700)  SUP1 ( I )  ,SUP2! I  ) 

READ! LEC, 400  )  SUPl(I) 

WRITE! IMP, 1800 ) 

READ! LEC, 400 )  SUP2(I) 

ELSE  IF  ( SUP  1 ( I ) . NE . 0 . AND . SUP  2 ( I ) . NE , 0 ' 

1  THEN 

WRITE! IMP, 1700 )  I ,SUP1 II), SUP2 ( I ) , I 
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READ ( LEC, 400 >  SU?KI> 

WRITE ( IMP, 1300 ) 

READ ( LEC ,400)  SUP 2 ( I ) 

I F  ( SUP 1 ( I )  . EQ . 0 . AND . SUP 2 ( I )  . EQ .  0  5 
1  THEN 

NROW=NROW-l 
END  I  r 
END  IF 
END  IF 
END  DO 

CALL  SUPSET ( LEC , IMP , NCOL , NRCW , SUP  1 , SUP 2 , SN ) 
I DUM= 1 
ELSE 

WRITE ( IMP, 1900) 

CALL  ROWS UP ( LEC , IMP , FLAG2 , NRCW , SUPi , SUP 2 , SN 
END  IF 

ELSE  IF  ( I ND . EQ . ' 5 ' )  THEN 
IF  ( FLAG2 ( 4 ) . EQ . 1 )  THEN 
WRITE ( IMP , 2000 ) 

WRITE (LEC, 2100)  ( NOROW ( I ) , 1=1 ,NBRCW) 

CALL  ANAD I S ( LEC , IMP , NROW , NRCW , NO ROW , N3RCW , 

1  MODROW) 

CALL  REORD ( LEC , IMP , NCOL , NROW , FLAG2 ,NORCW, 

1  NBROW ) 

I DUM= 1 
ELSE 

WRITE ( IMP, 2200 ) 

CALL  ANAD IS (LEC, IMP , NROW , NRCW , NORCW , N3 ROW , 

1  MODROW ) 

CALL  REORD (LEC, IMP , NCOL , NRCW , FLAG2 , NOROW , 

1  NBROW) 

END  IF 

ELSE  IF  ( IND . EQ , '  ')  THEN 

RETURN 
ELSE 

WRITE( IMP, 1500) 

IDUM=1 
END  IF 
END  DO 

FORMAT( 10 ( / ) ,4X, 'MODIFICATION  SELECTION  TABLE' /4X, 


1  ' - '  /  4X , 

2  'Number  of  rows  :1'/4X, 

3  'Mnemonics  by  row  :2'/4X, 

4  'Mnemonics  by  series  of  rows  :3'/4X, 

5  'Suppression  :4'/4X, 

6  'Rank  of  rows  :5’ 

7  /'$' ,3X, 'Answer  :') 

FORMAT (A) 

FORMAT(///4X, 'Old  number  of  rows  : ' , I  5/ ' $ ' , 3X , 

1  'Assign  new  number  :') 

FORMAT (15) 

FORMAT (///' S ', 3X ,' Ass ign  column  number  :') 


'V.  I"  l"  "IP1  V 


*  ir '  r>:  v  ►  ■ .  * '  w  ■  v  i 


r  ■  y.  v;  r.1  r 


iy  ■  •- j  r;  w~  v 


60  G 

700 

800 

900 


1000 

1100 


1200 

1400 

1500 

1600 

1700 


1800 

1900 

2000 

2100 

2200 


FORMAT ( 

1 

FORMAT  ( 
FORMAT  ( 
FORMAT  ( 
1 
2 

FORMAT  ( 
FORMAT  ( 
1 
2 

3 

4 

FORMAT  ( 
FORMAT  ( 
1 

FORMAT ( 
FORMAT ( 
FORMAT ( 
1 
2 

3 

4 

FORMAT ( 
FORMAT ( 
FORMAT  ( 
FORMAT  ( 
FORMAT  ( 
RETURN 
END 


// /4X ,  0  -  c  n am e  :  ,  A 2 4  ;  ,  j  X , 

'Assign  r.ev  name  :') 

A24  ) 

/// 3 X, 'MNEMONIC  NAMES  DC  NOT  EXIST!:') 
///4X ,  ’ 


///'$', 

///IX. 


*$\3X. 
/ // 4X , 

///5X ,  ' 
///'$’  , 
///4X, 


,3X, 
///4X ,  ' 
/// 4X ,  ' 
/4X, 100 
// / 4X  ,  ' 


1  ’  /  4  X  , 

2  '  /  '  S  '  ,  3  X , 
’  ) 

number  : ' ) 

, I5/4X, 

, I5/4X, 

, I5//4X, 
/’S’ / 3X , 


) 

, X , A2  4 / ' $ ’  , 3X, 


Seri  e  x.odi  f  i  car  ion 
Name  modification 
Answer 

3X , ’ Ass ign  ser ie 
'Old  serie 
' From  row 
'To  row 

'Assign  new  serie 
'From  row 
'To  row 
'Old  mnemonic 
'Assign  new  mnemonic 
INVALID  CHARACTER! ! ’ ) 

3X, 'Assign  suppression  number 

'Old  suppression  :',I5,/4X1 

'  From  row  : ' , I  5 , / 4 X , 

' To  row  : ' , I 5//4X , 

'Assign  new  suppression  :',I5,/'S 
3X, ' From  row 
'To  row 

NO  SUPPRESSION  HAS  BEEN  ASSINGED! ! 

Old  ranking  : ' ) 

(20(13,',')/)) 

RANKING  HAS  NOT  BEEN  ASSIGNED!!') 


SUBROUTINE  TESTER  ( NCOL , NAME , COLMNE , TEST ) 

C 

C  This  subroutine  is  used  to  test  if  a  mnemonic  name  has 

C  been  assigned  as  column  mnemonic  name 

C 

C  ARGUMENTS 

C  - 

C 

C  NCOL 

C  NAME 

C  COLMNE 

C 

C  TEST 

C 
C 


:  The  number  of  columns 
:  The  mnemonic  to  be  tested. 

:  Array  storing  the  column  mnemonic  names 
data  will  be  stored. 

:  Flag  indicating  that  the  tested  name  is  an 
assigned  mnemonic  or  not. 


IMPLICIT  INTEGER*2  (I-N) 
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INTEGER* 2  NCCL 

CHARACTER  *  2  4  COLMNE (12  3), NAME 
LOGICAL*l  TEST 
1  =  1 

TEST= . FALSE. 

DO  WHI LE ( TEST . EQ . . FALSE . . AND . I 
I F  ( COLMNE ( I ) . EQ . NAME )  THEN 
TEST= . TRUE . 

END  IF 
1  =  1  +  1 
END  DO 
RETURN 


xxx**************************-*  -k  k 


SUBROUT  I NE  REORD ( LEC , IMP , NCOL , NROW , FLAG2 , NOROW , N3R 


*************************x***** 


ARGUMENTS 


LEC  :  The  logical  unit  number  for  writing  on  t 

terminal . 

IMP  :  The  logical  unit  number  for  reading  from  t 

terminal . 

NCOL  :  The  number  of  columns 

NROW  :  The  number  of  rows 

NOROW  :  Array  the  numbers  of  rows  used  as  guides  for  t 
ranking  of  the  rows. 

NBROW  :  The  number  of  row  numbers  used  for  row  ranking 


IMPLICIT  INTEGER* 2  (I-N) 

INTEGER*2  AR(128) ,NO(128) ,NOR(128) ,DUM(128) ,FLAG2(4) 
1  NOROW ( 2048 ) 

CHARACTER* 4 5  DEVD I R , NAME* 1 0 
REAL*4  X ( 1 28 ) ,Y(128) 

DIMENSION  NOCOL ( 256 ) 

DATA  DEVD I R , NAME/ ' DUAO  '/ 

DATA  LOGOLD, LOGNEW/2 , 2/ 

FLAG2 ( 4 ) = 1 
NBYTES=NCOL*4 

CALL  FICH  (' 069 LOGOLD, 1 , DEVDIR, NAME, NROW, NBYTES , 
1  'DIRECT',  LEC, IMP) 

IF  ( NBROW. NE. NROW)  THEN 
NBYTES =NCOL* 4 
LOGNEW= 3 

CALL  FICH ( ' 069 ' , LOGNEW, 1 , DEVD I R , NAME , NROW , NBYTES , 
1  ’ DIRECT' LEC, IMP) 


O  * 


nnnnnnnnnnnnnnnnnn 


DO  1=1, N3RCW 

READ  (  LOGOLD  '  NCRCW  (  I  )  )  (  Y  ( J  )  ,  J  =  1 ,  N’COL  ) 
WRITE ( LOGNEW' I  )  ( Y ( J ) , J= 1 , NCOL ) 

END  DO 
NROW=NBROW 
ELSE 

DO  1=1, NBROW 

READ  (LOGOLD1 I  )  ( X ( J ) , J= 1 , NCOL ) 

READ  ( LOGOLD' NORCW( I ) )  ( Y ( J ) , J= 1 , NCOL ) 

WRITE (LOGOLD1 I  )  ( Y ( J ) , J* 1 , NCOL ) 

WR I TE( LOGOLD' NOROW ( I ) )  (X(J) , J=l, NCOL) 

J=I 

DO  WHILE  ( NOROW ( J) . NE . I ) 

J=J  +  1 
END  DO 

NOROW ( J ) = NOROW ( I ) 

END  DO 
END  IF 

CLOSE (LOGOLD) 

CLOSE ( LOGNEW) 

RETURN 

END 


C**********************************************************,*,, 

SUBROUTINE  RANKl  ( LEC , IMP , NCOL , NROW , NRANK , NNU ) 
************************************************************* 

Used  to  rearrange  the  columns  of  the  data  matrix 
according  the  column  numbers  assigned  by  the  user. 

ARGUMENTS : 

LEC  :  The  logical  unit  number  for  writing  or.  the 
terminal. 

IMP  :  The  logical  unit  number  for  reading  from  the 

terminal. 

NCOL  :  The  number  of  columns. 

NROW  :  The  number  of  rows. 

NRANK  :  Array  storing  the  column  numbers  that  determine 
the  reordering  of  the  columns. 

NNU  :  The  number  of  columns  that  will  be  ranked. 

** *********************************************************** 

IMPLICIT  I NTEGER*  2  (I-N) 

INTEGER*2  NRANK (128) 

CHARACTER* 2 4  A ( 128 )  , B ( 1 2 8 ) 

CHARACTER* 4 5  DEVD I R , NAME* 1 0 
REAL*4  X( 123 ) ,Y( 128 ) 

DATA  DEVD I R , NAME/ ' DUAO  '/ 

DATA  LOGOLD, LOGNEW/ 2 , 2/ 
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For  the  'old'  fixe. 

WRITE ( IMP, 100  ) 

KBYTES =NCOL* 4 

CALL  FICH  (' 069 ', LGGOLD, 1 , DEVDIR, NAME, NRCW, N3YTES , 1 
1  'DIRECT' ,LEC, IMP) 

For  the  eventual  'new'  file. 

IF  (NNU.NE.NCOL)  THEN 
LOGNEW=3 
WRITE ( IMP, 200 ) 

NBYTES=KNU*4 

CALL  FICH( '069' , LOGNEW , 1 , DEVOIR, NAME , NRCW, K3YTES , 1 
1  'DIRECT' , LEC, IMP) 

END  IF 

DO  1=1, NROW 

READ  (LOGOLD'I)  ( X ( J ) , J= 1 , NCOL ) 

WRITE ( LOGNEW ' I )  ( X ( NRANK ( J ) ) , J=1,NNU) 

END  DO 
NCOL=NNU 
CLOSE (LOGOLD) 

CLOSE (LOGNEW) 

RETURN 

FORMAT (/'$', 3X ,' Ass ign  the  ''OLD''  direct  access  file 
1  ' /4X , 37 ( ' - ' ) ) 

FORMAT (/'$', 3X ,' Ass ign  the  ''NEW''  direct  access  file 
1  ' /4X, 37 ( ' - ' ) ) 


SUBROUTINE  RANK 2  ( LEC , IMP , NCOL , NROW , MRANK , KMN , COLMNE 


Used  to  rearrange  the  columns  of  the  data  matrix 
according  the  column  mnemonic  names.  It  calls  TRANS  to 
transform  the  column  name  to  column  number. 

ARGUMENTS  : 

LEC  :  The  logical  unit  number  for  writing  on  the 

terminal . 

IMP  :  The  logical  unit  number  for  reading  from  the 
terminal . 

NCOL  :  The  number  of  columns. 

NROW  :  The  number  of  rows. 

MRANK  :  Array  storing  the  column  mnemonic  names  that 
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IMPLICIT  INTEGER*  2  (I-N) 

INTEGER* 2  N(128) 

REAL *4  X( 128 ) , Y(  128  ) 

CHARACTER* 4 5  DEVD I R , NAME* 10 
CHARACTER* 2 4  COLMNE( 128 ) ,MRANK( 123 ) 

DATA  DEVD  I R ,  NAME/  '  D(JA0  ’/ 

DATA  LCGOLD/2/ 

NBYTES=NCOL*4 
WRITE ( IMP, 100 ) 

CALL  FICH( '069' , LOGOLD , 1 , DEVOIR , NAME , NROW , NBYTES , 1 , 

1  ' DIRECT' , LEC, IMP) 

CALL  TRANS ( NCOL , COLMNE , KMN , MRANK , N ) 

DO  1=1, NROW 

READ( LOGOLD' I )  ( X ( J ) , J= 1 , NCOL ) 

WRITE (LOGOLD' I )  (X(N(J) ) ,J=1,KMN) 

END  DO 

CLOSE ( LOGOLD) 

RETURN 

100  FORMAT ( / ' $ ' , 3X , ' Ass ign  the  ''OLD''  direct  access  file  : 

1  ' /4X , 3  7 ( ' - ' ) ) 

END 


SUBROUTINE  REAR1  ( LEC , IMP , NCOL , NROW, NKEY , NN ) 


Used  to  continue  the  process  of  multi-sorting  according 

column  numbers  by  calling  the  subroutine  REAR  . 

ARGUMENTS  : 

LEC  :  The  logical  unit  number  for  writing  on  the 

terminal . 

IMP  :  The  logical  unit  number  for  reading  from  the 
terminal . 

NCOL  :  The  number  of  columns. 

NROW  :  The  number  of  rows. 

NKEY  :  Array  storing  the  column  numbers  used  as  sorting 
column  guides. 

NN  :  The  number  of  repeating  sortings  according 

column  number. 


IMPLICIT  INTEGER* 2  'I-N) 

INTEGER* 2  NKEY ( 1 2 S ) 

DATA  LCGOLD/2/ 

CALL  REAR ( LEC , I MP , NCOL , NRCW , NKEY , NN ) 

RETURN 

END 


''klt-kltit-kif-k-k-kicIc-k-k-kM-k-kic-kif-kifit-k-k-kiciciKlc-kit-k'k-kit-klc-k-kx-k-kic'X-k-K'k-klc-k-klcit-k'K-kifn-k 

SUBROUT  I NE  REAR 2 ( LEC , I MP , NCOL , NRCW , COLMNE , MNE , NM ) 


It  functions  like  REAR1  for  column  assignment  according 
column  names.  It  calls  TRANS  to  transform  column  names 
to  colun  numbers. 

ARGUMENTS  : 


LEC  :  The  logical  unit  number  for  writing  on  the 
terminal . 

IMP  :  The  logical  unit  number  for  reading  f 

terminal . 

NCOL  :  The  number  of  columns. 

NROW  :  The  number  of  rows. 

COLMNE:  Array  storing  the  column  mnemonic  names. 

MNE  :  Array  storing  the  names  of  columns  which 
used  as  sorting  column  guides. 

NM  :  The  number  of  repeating  sortings  ac 

column  mnemonic  names. 


rom  tne 


w:::  oe 


cord ing 


IMPLICIT  I NTEGER*  2  (I-N) 

INTEGER*2  N ( 1 2 8 ) 

CHARACTER* 2 4  COLMNE ( 128 ) , MNE ( 128 ) 
DATA  LGGNEW/2/ 

CALL  TRANS ( NCOL , COLMNE , NM , MNE , N ) 
CALL  REAR (LEC, IMP , NCOL , NROW , N , NM ) 
RETURN 


SUBROUT  I NE  REAR ( LEC , I MP , NCOL , NROW , AR , NSORT ) 


Used  for  the  multisorting  of  the  data  matrix.  It  opens 
the  direct-access  file  of  data,  and  consequenty  calls 
the  subroutine  EXTREE  for  the  sorting.  It  rearranges  the 
data  according  the  filnal  inverted  relative  addresses 
without  using  extra  file  for  temporary  storage  of  the 


nnnn  n  n n n n n 


ARGUMENTS  : 


LEC 

:  The 

logical  u 

n  i 

terminal . 

IMP 

:  The 

log ical 

un 

terminal . 

NCOL 

:  The 

number  of 

CO 

NROW 

:  The 

number  of 

ro 

AR 

:  Array  storing 

guides  for  the  mu it isort ing, 
NSORT  :  The  number  of  guides. 


IMPLICIT  INTEGER* 2  (I-N) 

INTEGER*2  AR ( 1 2 8 ) , NO ( 1 2 3 ) ,NCR( 123) ,DUM( 128) 

CHARACTER* 4 5  DEVD I R , NAME  *  1 0 
REAL *4  X ( 128 ) , Y( 128  ) 

DATA  DEVD I R , NAME/ ' DUAO  '/ 

DATA  L0G0LD/2/ 

NBYTES=NC0L*4 
WRITE ( IMP, 100) 

CALL  FICH( '069' , LOGOLD, 1 , DEVOIR, NAME , NROW, NBYTES , 1 , 

1  'DIRECT' ,LEC, IMP) 

PART  1  :  Successive  actualization  of  NO( )  according  to  the 
address  calculations  after  each  sort  over. 

For  each  sorting  colum  guide. 

DO  1=1, NROW 
NOR ( I ) = I 
END  DO 

DO  J=l, NSORT 
DO  1=1, NROW 

For  next  column  guides,  permits  actualization  of  NC( ) 
READ (LOGOLD' NOR ( I ) )  (X(K) ,K=l,NCOL) 

Y ( I ) =X ( AR ( J ) ) 

END  DO 

Tree  sort  is  needed  for  multi  sorts,  if  the  data  are 
in  previous  order,  the  user  will  "burst"  them  by  a 
dummy  sort  according  to  any  unsorted  column  to 
restore  the  performances  of  this  method. 

CALL  EXTREE (Y, NO, NROW, 1) 


DO  L= 1 , NROW 

K=NOR ( NO ( L ) ) 


nnn 


DUM< L) =K 
END  DC 
DO  N= 1 , NRCW 

NOR ( N ) =  DUM ( N ) 
END  DO 
END  DO 


PART  2  :  Rearranging  lines 
extra  storage. 


according  to 


DO  1=1, NROW 

READ ( LOGOLD ' I )  ( X ( J ) , J  =  1 , NCOL ) 

READ ( LOGOLD 1  NOR ( I ) )  (Y(J) ,J  =  1,NCCL) 
WRITE ( LOGOLD ' I )  (Y(J) ,J=l,NCOL) 

WRITE( LOGOLD' NOR( I) )  (X(J) ,J=i,NCCL) 
J=I 

DO  WHILE (NOR(J) . NE . I ) 

J=J+1 
END  DO 

NOR ( J ) =NOR ( I ) 

END  DO 

CLOSE ( LOGOLD) 

RETURN 

FORMAT (/'$' ,3X, 'Assign  the  ''OLD''  direc 
1  ' /4X , 3  7 ( ' - ' ) ) 


********** 


SUBROUTINE  TRANS ( NCOL , COLMNE , N1 , N2 , N ) 
*************************** 


Used  to  transform  column  mnemonic  names  to  corresponding 
column  numbers. 

ARGUMENTS  : 


NCOL  :  The  number  of  columns. 

COLMNE:  Array  storing  the  column  mnemonic  names. 
N1  :  The  number  of  guides. 

N2  :  Array  storing  the  column  names  used  as 
for  the  multisorting. 

N  :  Array  storing  the  column  numbers 

transformat  ion . 


;u  ices 


after 


IMPLICIT  I NTEGER*  2  (I-N) 
INTEGER*2  N(128) 

CHARACTER* 2 4  COLMNE (128) ,N2( 128 
LOGICAL*!  TEST 


DO  I = 1 , N1 
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nnonnnnnnonnnnnnnnnnnnnnnnnnnnnnn 


DO  J= 1 , NCCL 

IF  ( COLMNE (  J ) . EQ . N2 (  I  )  ) 

'"P  ^ 

ELSE 
TE 
END  I 

IF  ( TEST . EQ 
N  (  I  )  =  J 
END  IF 
END  DO 
END  DO 
RETURN 
END 

£*★**★*★*★★*********★**★★******★★*******'****■*:★*'★*★*★»*■**★* 

SUBROUTINE  CCMRCW { LEC ,  IMP , LOGN , NCOL , NRCW , FLAG! , FLAG 2 

1  COLMNE , NC , NCO , NC I N , I J , A , 3 , ROWMNE 1 . 

2  NRO, NR IN, ROWMNE 2 , HlFNAME , H2FNAM 

3  RMAX , NT , NTR , NT  I N ) 

Used  to  merge  (combine)  two  data  files  and  their  headers 
in  the  row-row  (one  over  the  other)  sense. 


ARGUMENTS  : 


LOGN 

NCOL 

NROW 

FLAG1 


FLAG2 

COLMNE 

NC 

NCO 

NCIN 
IJ 
A ,  B 


ROWMNE 1 

NR 

NRO 


The  logical  unit  number  for  writing  on  th< 
terminal . 

The  logical  unit  number  for  reading  from  th< 
terminal . 

The  logical  chanel  for  the  file  on  w’nici 
will  be  stored  the  header’s  data. 

The  number  of  columns. 

The  number  of  rows. 

Integer  array  of  six  elements  used  as  flac 
to  indicate  the  existence  or  not  of  th< 
several  informations  regarding  the  columns. 
The  corresponding  flag  for  rows. 

Array  storing  the  column  mnemonic  names. 

The  number  of  assigned  column  mnemonic  name: 
The  numbers  of  columns  for  which  have  bee: 
assigned  names. 

The  invert  relative  addresses  for  COLMNE. 
The  number  of  assigned  tracing  extrema  sets 
Arrays  storing  the  number  of  row  on  whici 
starts  a  set  of  common  name  rows  and  th< 
corresponding  on  which  it  terminates. 

Array  storing  the  row  mnemonic  names. 

The  number  of  assigned  row  mnemonic  names. 
The  numbers  of  rows  for  which  have  bee: 
assigned  names. 

The  invert  relative  addresses  of  ROWMNE. 


NR  IN 


R0WMNE2 
HI F NAME 

H2FNAME 
RM I N , RMAX 


NT  IN 


Array  storing  t.ne  -T.nerri.cn  ics  o:  sets  of  revs 
The  name  of  the  first  header's  file  whic 
will  be  merged. 

The  name  of  the  second  file  for  merging. 
Arrays  storing  the  minimum  and  the  maximu 
values  between  which  tracing  of  the  data  i 
going  to  take  place. 

The  number  of  columns  for  which  traci.n 
extrema  have  been  assigned. 

The  column  numbers  for  which  for  whic 
tracing  extrema  have  been  assigned. 

The  invert  relative  addresses  for  RM'  RMAX. 


. .og  of  the  da- 


wh  i  ch 


IMPLICIT  INTEGER* 2  (I-N) 

INTEGER* 2  FLAG1 ( 6 ) , FLAG2 ( 3 ) ,NCO(128) ,NRO(123) , A ( 128 ) , 

1  B( 128 ) , AD, BD,NTR( 128 ) ,NCOD< 128 ) , FLAG12 ( 6 ) , 

2  FLAG2  2(3) ,NTRD(128) ,NTIN(128) ,NTIND(128)  , 

3  NRIN( 128 ) ,NCIN( 128 ) ,NCIND( 128 ) 

CHARACTER* 2 4  COLMNE( 128 ) , H1FNAME , H2FNAME , COLMNED ( 128 ) , 

1  R0WMNE1 ( 128 ) , R0WMNE2 ( 128 ) , ROWMNED 

REAL*4  RMIN( 128 ) ,  RMAX ( 128) , RMIND( 128 ) ,  RMAXD (  123  ) ,X(  128  ) 
CHARACTER* 4 5  DEVOIR, NAME* 10 

DATA  DEVD I R , NAME/ 1 DUAO  '/ 

DATA  LOGNEW, LOGOLD1 , LOGOLD2/3 ,1,2/ 

Open  the  first  header's  file. 

OPEN ( UNIT=LOGN, FI LE=H1FNAME , STATUS = ' OLD' ) 

REWIND  LOGN 

Read  the  data  to  be  combined. 


READ( LOGN, 100 
READ( LOGN, 200 
IF  (FLAGl(l) . 
READ ( LOGN, 
READ ( LOGN, 
READ (LOGN, 
DO  1=1, NCA 
COLMNED 
END  DO 
END  IF 

IF  ( FLAG1 ( 2 ) . 
READ ( LOGN, 
READ (LOGN, 
READ (LOGN, 
READ ( LOGN, 
DO  1=1, NT A 
RMIND ( I 


)  NCI , NR1 , NCA , NRA , I J  A , NT A 
)  (FLAG1( I ) , 1=1,6) 

EQ.l)  THEN 

300)  ( COLMNE ( I ) , I = 1 , NCA ) 
200)  ( NCOD ( I ) , I = 1 , NCA ) 
200)  ( NC I N ( I ) , I = 1 , NCA ) 

( I ) =COLMNE ( NC I N ( I ) ) 


EQ.l)  THEN 
500)  ( RMI N ( I 
500)  (RMAX  (I 
200)  ( NTRD ( I 


1=1 ,NTA) 
1=1, NT A ) 
1=1, NT A ) 


NT  I N  (  I  )  ,  I  =  1 , NT A ) 


)  =  RM  I N  (  NT  I N  (  I  )  ) 
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RMAXD  (  I  )  =  RMAX  ■'  NT  I N 1  I  )  ) 

END  DO 
END  IF 

READ ( LOGN ,200)  ( FLAG2 ( I )  , I  =  1 , 3  ) 

IF  (FLAG2CL)  .EQ.l)  THEN 

READ ( LOGN ,300)  ( RCWMNE I ( I ) , I = 1 , NRA ) 

READ ( LOGN ,200)  ( NRO ( I ) , I = 1 , NRA ) 

READ( LOGN, 200 )  ( NR IN ( I ) , 1=1, NRA) 

END  IF 

IF  (FLAG2(2) .EQ.l)  THEN 

READ{ LOGN, 300 )  (ROWMNE2( I ) , 1=1 , IJA) 

READ( LOGN, 200 )  { A ( I ) , I = 1 , I J A ) 

READ( LOGN, 200 )  ( 3 ( I ) , I = 1 , I JA ) 

END  IF 

CLOSE (UN  I T= LOGN) 

Open  the  second  header's  file. 

OPEN (UNIT= LOGN, FI LE=H2FNAME, STATUS* 'OLD' ) 

REWIND  LOGN 

READ (LOGN, 100)  NC2 , NR 2 , NC3 , NR3 , I JB , NTB 

If  the  two  headers  have  the  same  number  of  columns 
the  process  of  combination  is  continued. 

IF  (NC1.EQ.NC2.AND. (NR1+NR2) .LE.128)  THEN 
NCOL=NCl 
NROW-NR1+NR2 

READ ( LOGN, 200 )  ( FLAG 12 ( I ) , 1=1 , 6 ) 

IF  ( FLAG1 2 ( 1 ) .EQ.l)  THEN 
FLAG1 ( 1 )  =  1 
NC=NCA+NCB 

READ( LOGN, 300)  ( COLMNE ( I ) , 1=1, NCB) 

READ( LOGN, 200)  (NCOD( I ) , I=1+NCA,NC) 

READ( LOGN, 200)  (NCIN( I ) , 1=1, NCB) 

DO  1=1, NCB 

COLMNED ( I +NCA ) = COLMNE ( NCIN ( I ) ) 

END  DO 

CALL  EXSH1 ( NCOD , NC I ND , NC , 1 ) 

Combination  of  mnemonic  names. 

J  =  1 
K=  1 
L  =  0 

DO  WHILE (J.LE.NC) 

IF  ( NCOD ( J )  . EQ . NCOD ( J  +  1 ) )  THEN 
NCO ( K ) =NCOD ( J ) 

COLMNE ( K ) =COLMNED ( NC I ND ( J ) ) 

NCIN(K) =K 
J=J  +  2 
K=K+1 


ELSE 

NCC(K) =NCOD( J) 

COLMNE ( K ) =COLMNED ( NC I ND ( J ) ) 
NCIN(K) =K 
J=J  +  1 
K  =  K  + 1 
END  IF 
END  DO 
END  IF 
NC=NC-L 

IF  ( FLAG12 ( 2 ) . EQ . I )  THEN 
FLAG1 ( 2 ) = 1 
NT=NTA+NTB 

READ ( LOGN ,500)  ( RM I N ( I ) , I -I, NTS) 
READ ( LOGN ,500)  ( RMAX ( I ) , 1=1, NTB ) 
READ( LOGN, 200 )  ( NTRD ( I ) , I=i+NTA,NT) 
READ( LOGN, 200  )  ( NT  I N ( I)  , 1  =  1, NTB) 

DO  1=1, NTB 

RMI  ND  (  I  +  NT A )  =  RM  I N  (  NT  I N  (  I  )  ) 

RMAXD ( I +NTA ) =RMAX ( NT  I N ( I )  ) 

END  DO 

CALL  EXSH1 ( NTRD , NT IND , NT , 1 ) 

J  =  i 
K=  1 
L  =  0 

DO  WHILE ( J.LE.NT) 

IF  ( NTRD ( J ) . EQ . NTRD ( J+ 1 ) )  THEN 
NTR ( K ) =NTRD ( J ) 

RMIN ( K ) =MIN ( RMI ND ( NT I ND ( J ) ) , 
RM I ND ( NT I ND ( J  + 1 ) ) ) 
RMAX ( K ) =MAX ( RMAXD ( NT  I ND ( J )  )  , 
RMAXD ( NT I ND ( J  + 1 ) ) ) 

NT  IN ( K ) =K 
J=J  +  2 
K=K+ 1 
L=L  + 1 
ELSE 

NTR(K) =NTRD( J) 

RM I N ( K ) =  RM I ND ( NT  I ND ( J ) ) 

RMAX ( X ) =  RMAXD ( NT I ND ( J )  ) 
NTIN(K) =K 
J=J  +  1 
K=K+1 
END  IF 
END  DO 
END  IF 
NT=NT-L 

READ( LOGN, 200 )  ( FLAG2  2 ( I ) , I  =  1 , 3 ) 

IF  ( FLAG22 ( 1 ) . EQ . 1 )  THEN 
NR=NRA+NR3 
FLAG2 ( 1 ) =1 


READ ( LCGN , 3  C  C  >  ( RCWMNE 1 (  I  )  ,  I  =  1 - NRA ,  NR ) 

DO  J= I , NR3 

READ ( LCGN ,200)  NRCD 
NRO  ( J  +  NRA  )  =NROD+NRi 
END  DO 
DO  J  =  i , NR3 

READ ( LOGN ,209)  NRIND 
NR I N ( J +  NRA ) =NRI ND+NRA 
END  DO 
END  IF 

IF  ( FLAG2  2 ( 2 ) . EQ . 1 )  THEN 
FLAG2 ( 2 ) =1 
I J= I JA+ I JB 
DO  1=1, IJB 

READ ( LOGN, 300 )  ROWMNED 
ROWMNE  2  (  I  +  I J  A )  = ROWMNED 
END  DO 
DO  1=1, IJB 

RE AD ( LOGN, 200 )  AD 
A (  I+IJA) =AD+NR1 
END  DO 
DO  1=1 , IJB 

READ( LCGN, 200)  3D 
B  (  I  +  IJA ) =BD  +  NR1 
END  DO 
END  IF 

CLOSE ( UN I T= LOGN ) 

NBYTES=NCOL*4 
WRITE ( IMP, 600 ) 

CALL  FICH( ’069’ , LOGOLDl , 1 , DEVOIR , NAME , NRi , N3YTES , 
1  'DIRECT' ,LEC, IMP) 

WRITE ( IMP, 700 ) 

CALL  FICH(  '069’  ,  LOGOLD2  ,  1 ,  DEVDI R ,  NAME  ,  NR2  ,  .MBYTES  , 
1  'DIRECT' ,LEC, IMP) 

WRITE( IMP, 800  ) 

CALL  FICH(  ' 069  '  , LOGNEW, 1 , DEVD I R , NAME , NRI  +  NR2 , N3YT 
1  0 ,' DIRECT' , LEC, IMP) 

DO  1=1, NRI 

READ! LOGOLDl ' I )  ( X ( J ) , J= 1 , NCOL ) 

WRITE ( LOGNEW ' I )  !X(J) , J=l,NCOL) 

END  DO 
DO  1=1, NR 2 

READ! LOGOLD2 ’ I )  ! X ( J ) , J= 1 , NCOL ) 

WRITE! LOGNEW' I+NR1)  (X(J) ,J=l,NCOL) 

END  DO 
ELSE 

WRITE! IMP, 400 ) 

CLOSE! LOGOLDl ) 

CLOSE! LOGOLD2 ) 

CLOSE! LOGNEW) 

RETURN 
END  IF 


FORMAT (615) 

FORMAT (15) 

FORMAT (A2 4 ) 

FORMAT  ( ///4X ,  '  COM3  I  NAT  I  ON’  IS  MOT  P0SSI3LZ  DUE  TO' 
1  7X, ' DIFFERENT  NUMBER  OF  COLUMNS!!') 

FORMAT (FI4. 6) 

FORMAT (/' S ', 3X ,' Ass ign  the  first  ''OLD''  direct  ' 
1  'access  file  :  ' /4X , 37 ( ' - ' ) ) 

FORMAT (/'$', 3X, ' Ass ign  the  second  ''NEW'  direct’ 
1  '  access  file  : ' /4X, 37 ( ' - ' ) ) 

FORMAT(/' 3X, 'Assign  the  ''NEW'  direct  access 
1  ' /4X, 37 ( 1  -  '  )  ) 

CLOSE (LOGOLD1) 

CLOSE (LOGOLD2 ) 

CLOSE (LOGNEW) 

RETURN 


SUBROUTINE  COMCOL  (LEC, IMP, LOGN,NCOL,NRCW, FLAG! , FLAG2 , 

1  COLMNE , NC , NCO , NC I N , I J , A , 3 , RCWMNE 1 , NR , 

2  NRO , NR I N , ROWMNE 2 , H 1 FN AME , H 2  FNAME , 

3  RMI N , RMAX , NT , NTR , NT I N ) 


Used  to  merge  (combine)  two  data  files  and  their  headrs 
in  the  column-column  (one  aside  the  other)  sense. 


ARGUMENTS  : 


LOGN 

NCOL 

NROW 

FLAG1 


FLAG  2 
COLMNE 
NC 
NCO 

NCIN 
IJ 
A,  B 


ROWMNE 1 


The  logical  unit  number  for  writing  on  t 
terminal . 

The  logical  unit  number  for  reading  from  t 
terminal . 

The  logical  chanel  for  the  file  on  wh: 
will  be  stored  the  header's  data. 

The  number  of  columns. 

The  number  of  rows. 

Integer  array  of  six  elements  used  as  f 
to  indicate  the  existence  or  not  of 
several  informations  regarding  the  column 
The  corresponding  flag  for  rows. 

Array  storing  the  column  mnemonic  names. 
The  number  of  assigned  column  mnemonic  car 
The  numbers  of  columns  for  which  have  be 
assigned  names. 

The  invert  relative  addresses  for  COLMNE. 
The  number  of  assigned  tracing  extrema  set 
Arrays  storing  the  number  of  row  on  wh; 
starts  a  set  of  common  name  rows  and  t 
corresponding  on  which  it  terminates. 

Array  storing  the  row  mnemonic  names. 


*  -  • 

*  •  .  » 

The  number  of  assigned  row  mnemonic  names. 

C 

NR 

c 

NRO 

The  numbers  of  rows  for  which  have  been 

*  - 
L-.\ 

c 

assigned  names. 

c 

NR  IN 

The  invert  relative  addresses  of  RCWMNE. 

c 

ROWMNE2 

Array  storing  the  mnemonics  of  sets  of  rows. 

c 

H1FNAME 

The  name  of  the  first  header's  file  which 

- 

c 

will  be  merged. 

c 

H2FNAME 

The  name  of  the  second  file  for  merging. 

c 

RMIN, RMAX 

Arrays  storing  the  minimum  and  the  maximum 

c 

values  between  which  tracing  of  the  data  is 

. _ 

c 

going  to  take  place. 

_m  - 

c 

NT 

The  number  of  columns  for  which  tracing 

m 

c 

extrema  have  been  assigned. 

c 

NTR 

The  column  numbers  for  which  for  which 

C 

c 

tracing  extrema  have  been  assigned. 

c 

NT  IN 

The  invert  relative  addresses  for  RMI,RMAX. 

c 

IMPLICIT  INTEGER*2  (I-N) 

I NTEGER* 2  FLAG1 ( 6 ) ,FLAG2(3) ,NCO(128) ,NRO(123) , A ( 1 2 3 )  , 

1  8(128 ) , NTR( 128 ) ,NROD( 128 ) , FLAG1 2 ( 6 ) , FLAG 2  2 < 3 ) 

2  NTRD ,  NT  I N  ( 128 ) , NT I ND , MR I N ( 128 )  ,NCIN( 128 )  , 

3  NRIND( 128 ) , NCIND 

CHARACTER* 2 4  COLMNE ( 128) , H1FNAME , H2FNAME , RCWMNE1D ( 128 ) , 
1  ROWMNE1 ( 128 ) , ROWMNE2 ( 128 ) , RCWMNED 

REAL *4  RMIN ( 128 ) ,RMAX(128) , RMIND(128) ,RMAXD(123) ,X(123) 
CHARACTER* 4 5  DEVD I R , NAME* 1 0 

DATA  DEVOIR , NAME/ ' DUAO  V 

DATA  LOGNEW , LOGOLD1 , LOGOLD2/3 ,1,2/ 

OPEN ( UNIT=LOGN , F I LE=H1FNAME , STATUS= ' OLD ' ) 

REWIND  LOGN 

READ ( LOGN , 100 )  NCI , NR1 , NCA , NRA , I J A, NT A 
READ( LOGN, 200 )  ( FLAG1 ( I ) , I = 1 , 6 ) 

IF  (FLAGl(l) .EQ.l)  THEN 

READ( LOGN, 300)  ( COLMNE ( I ) , 1=1, NCA) 

READ( LOGN, 200)  ( NCO ( I ) , I = 1 , NCA ) 

READ( LOGN, 200 )  ( NCI N ( I ) , I = 1 , NCA ) 


READ( LOGN, 300)  ( COLMNE ( I ) , 1=1, NCA) 

READ( LOGN, 200)  ( NCO ( I ) , I = 1 , NCA ) 
READ( LOGN, 200 )  ( NCI N ( I ) , I = 1 , NCA ) 

END  IF 

IF  (FLAGK2)  .EQ.l)  THEN 

READ( LOGN, 500)  ( RMIN( I ) , I=1,NTA) 

READ( LOGN, 500 )  ( RMAX ( I ) , I = 1 , NTA ) 

READ ( LOGN, 200 )  ( NTR ( I ) , I = 1 , NTA ) 

READ ( LOGN, 200 )  ( NT  I N ( I )  , 1  =  1 , NTA) 

END  IF 

READ( LOGN, 200 )  ( FLAG2 ( I ) ,  I  =  1 ,  3  ) 

IF  ( FLAG2 ( 1) .EQ.l)  THEN 

READ ( LOGN , 300)  (ROWMNEl( I ) , 1=1, NRA) 
READ( LOGN, 200 )  ( NROD ( I ) , 1=1 , NRA) 

READ( LOGN, 200 )  ( NR I N ( I ) , 1=1, NRA) 


( NTR  ( 


1=1 , NTA) 


( NT  I N ( I )  , 1  =  1 , NTA) 


DO  1=1, NRA 

ROWMNE 1 D  (  I  )  =  ROWMNE  1  (  NR  I N  (  I  )  ) 

END  DO 
END  IF 

IF  ( FLAG 2 ( 2 ) . EQ . 1 )  THEN 

READ(LOGN, 300)  (RCWMNE2( I ) , 1=1, IJA) 

READ ( LOGN ,200)  ( A ( I ) , I = 1 , I JA ) 

READ( LOGN, 200 )  ( B ( I ) , I = 1 , I JA ) 

END  IF 

CLOSE (UNIT=LOGN) 

OPEN ( UN I T= LOGN , F I LE=H2FNAME , STATUS = ' OLD ' ) 
REWIND  LOGN 

READ( LOGN, 100 )  NC2 , NR2 , NC3 , NR3 , IJ3,NT3 
IF  (NR1.EQ.NR2.AND.NCUNC2.LE.128)  THEN 
NROW=NRl 
NCOL=NCl*NC2 

READ( LOGN, 200 )  ( FLAG 12 ( I ) , I =1 , 6 ) 

IF  ( FLAG1 2 ( 1 ) , EQ . 1 )  THEN 
NC=NCA+NC3 
FLAG1 ( 1 ) =1 

READ( LOGN, 300)  ( COLMNE ( I ) , I = 1+NCA , NC ) 
DO  1=1, NCB 

READ (LOGN, 200)  NCOD 
NCO ( I +NCA ) =NCOD+NCl 
END  DO 
DO  J=1,NC3 

READ( LOGN, 200)  NCIND 
NCIN ( J  +  NCA ) =NCI ND+NCA 
END  DO 
END  IF 

IF  ( FLAG12 ( 2 ) . EQ. 1 )  THEN 
NT=NTA+NTB 
FLAG1 ( 2 ) = 1 

READ ( LOGN ,500)  ( RM I N ( I) , I=NTA+1,NT) 

READ ( LOGN, 500 )  ( RMAX ( I ) , I =NTA+ 1 , NT ) 

DO  J= 1 , NT3 

RE AD (LOGN, 200)  NTRD 
NTR ( J  +  NTA ) =NTRD+NC 1 
END  DO 
DO  J= 1 , NTB 

READ ( LOGN, 200 )  NTIND 
NT  I N ( J  +  NTA ) =NT I ND+NTA 
END  DO 
END  IF 

READ( LOGN, 200)  ( FLAG22 ( I )  ,  I  =  1  ,  3  ) 

IF  ( FLAG2  2 ( 1 ) . EQ . 1 )  THEN 
FLAG2 ( 1 )  =  1 
NR=NRA+NRS 

READ ( LOGN, 300 )  ( ROWMNE 1 ( I ) , 1=1 , NRB ) 

. READ ( LOGN ,200 )  ( NROD ( I ) , I=1+NRA, NR) 

READ ( LOGN, 200 )  ( NRI N ( I ) , 1=1, NRB) 

DO  1=1, NRB 


ROWMNE ID ( I - MR A ) =  ROWMNE 1 ( NR I N ( I ) ) 

END  DO 

CALL  EXSHi ( NRCD , NRIND , NR , 1 ) 

J  =  1 
K=1 
L  =  0 

DO  WHILE  (J.LE.NR) 

IF  ( NROD ( J )  . EQ . NROD ( J  + 1 )  )  THEN 
NRO ( K ) =NROD ( J ) 

ROWMNE 1 ( K ) =  ROWMNE 1 D ( NR I ND ( J )  ) 

NRIN(K) =K 
J=J  +  2 
K=K+  1 
L=L  + 1 
ELSE 

NRO ( K ) =NROD ( J ) 

ROWMNE 1 ( K ) =  ROWMNE 1 D ( NR I ND ( J ) ) 

NRIN(K) =K 
J=J  +  1 
K  =  K  + 1 
END  IF 
END  DO 
END  IF 
NR=NR-L 

CLOSE ( UNIT=LOGN ) 

NBYTES=NC1*4 
WRITE( I MP ,600) 

CALL  FICH ( '069' ,LOGOLDl, 1 , DEVDIR, NAME , NR1 , NBYTES , 
1  1, 'DIRECT' , LEC, IMP) 

NBYTES=NC2  *4 
WRITE ( IMP, 700 ) 

CALL  FICH( '069' , LOGOLD2 , 1 , DEVDIR , NAME , NR2 , NBYTES , 
1  1 DIRECT' , LEC, IMP) 

NBYTES  =  (  NCI  -I-NC2  )  *4 
WRITE ( IMP, 800 ) 

CALL  FICH(  '069'  , LOGNEW, 1 , DEVDIR, NAME , NR1  +  NR2 , 

1  NBYTES, 0, ’DIRECT’ , LEC, IMP) 

DO ' I = 1 , NROW 

READ( LOGOLD1 ' I )  ( X ( J ) , J= 1 , NCI ) 

READ{ LOGOLD2 ' I )  ( X ( J ) , J-NC+1 , NC2 ) 

WRITE ( LOGNEW' I )  ( X ( J ) , J=1 , NC2 ) 

END  DO 
END  IF 
FORMAT (615) 

FORMAT (15) 

FORMAT (A2 4 ) 

FORMAT(///4X, ' COMBINATION  IS  MOT  POSSIBLE  DUE  TO’, 

1  7X, 'DIFFERENT  NUMBER  OF  ROWS!!') 

FORMAT (FI 4. 6) 

FORMAT (/'$', 3X ,' Ass ign  the  first  ''OLD''  .direct', 

1  '  access  file  : ' /4X, 37 ( ' - ' ) ) 

FORMAT (/'$', 3X ,' Ass ign  the  second  ''NEW''  direct  ', 


1  'access  file  :  ' /4X , 37 ( ' - ' ) ) 

FORMAT  (/'$',  3X Ass  icn  the  ''NEW'  direct  access 
1  ' / 4X , 3  7 ( 

CLOSE ( LOGCLD1 ) 

CLOSE (LOGOLD2 ) 

CLOSE (LOGNEW) 

RETURN 

END 


SUBROUTINE  EXTREE ( A, NO, N, IND) 


Subroutine  for  internal  and  acaress  calculation  sort  ; 
the  tree  sort  ("Monkey-puzzle  sort")  to  ootain  the  ra: 
the  X's,  in  this  case  the  original  array  X()  is 
modi f ied. 

If  the  X()  are  in  random  order  the  number  of  compariso 
of  the  order  of  N  log2(N);  if  the  X( )  are  already  i 
required  order  or  reverse  order  the  number  of  compar 
is  of  the  order  of  N*N/2. 

ARGUMENTS : 


Elements  to  sort. 

Address  calculation  for  the  rank. 

Number  of  elements  to  sort. 

If  >0,  elements  are  sorted  in  ascending  orde: 
not,  in  descending  order. 

2048  items  maximum. 


Reference  : 

Windley  P.F.  (1960)  :  "Trees,  Forests  and  Rearranging" 
Computer  J,  vol.3,  no . 2 ,  July,  p.34-88. 


IMPLICIT  INTEGER*2  (I-N) 

INTEGER* 2  I  LB (2048), I RB (2048), NO (2048) 


REAL *4  A ( 2048 ) , AI , AJ 

Place  at  first  A(l)  on  the  root. 


I  LB ( 1 ) =0 
I RB ( 1 ) =  0 
DO  I =2 , N 
I  LB ( I ) =0 
I RB ( I ) =0 


c»  * 


Select  the  root  or  tr.e  tree  as  the  iter,  for  comparison. 

J  =  1 
K=  1 

DO  WH I LE ( X . EQ . 1 ) 

K=0 


Permutation  in  function  of  IND. 

IF(IND.GT.O)  THEN 

Sort  by  ascending  order. 

AI=A( I ) 

A  J  =  A  ( J  ) 

ELSE 

Sort  by  descending  order. 

AI =A ( J ) 

AJ=A ( I ) 

END  IF 

Compare  the  new  item  with  the  item  for  comparison.  If 
the  new  item  should  follow, 

IF(AI.GE.AJ)  THEN 

If  the  item  for  comparison  has  a  right  brance,  take  the 
item  to  which  that  branch  points  as  the  new  item  for 
comparison , 

IF  (IRB(J) .LE.O)  THEN 

Copy  the  backtrack  of  the  item  for  comparison  into  the 
backtrack-  of  the  new  item,  and  set  the  right  pointer  of 
the  item  for  comparison  to  point  to  the  new  item. 

IRB ( I ) = I RB ( J ) 

I RB ( J )  =  I 
ELSE 

J  =  IRB ( J ) 

Make  the  backtracks  of  the  new  item  point  to  the  item 
for  comparison,  and  set  the  left  pointer  of  the  item  for 
comparison  to  point  to  the  new  item. 

K=  1 
END  I F 
ELSE 

If  the  item  for  comparison  has  a  left  branch,  take  the 
item  to  which  that  branch  points  as  the  new  item  for 


comparison . 


IF  ( I  LB ( J ) . EQ . 0 )  THEN 
IRB( I )=-J 
I  LB ( J )  =  I 
ELSE 

J= I L3 ( J ) 

K-l 
END  IF 
END  IF 
END  DO 
END  DO 

Start  with  the  item  at  the  root  of  the  tree. 

M=0 

J-l 
K=  1 

DO  WHILE  (K.EQ.l) 

K=0 

If  this  item  has  a  left  branch,  take  the  item  to  wh 
that  branch  points. 

IF( ILB(J) .GT.O)  THEN 
J-ILB(J) 

K-l 

ELSE 

L=1 


This  is  the  next  item  in  order. 

DO  WHILE  (L.EQ.l) 

L=0 


Ordered  item  found,  adress  NO( ) . 


M=M+ 1 
NO ( M ) = J 

If  this  item  has  a  right  branch,  take  the  item  to  wh 
that  branch  points. 

I F ( I RB ( J ) . NE . 0 )  THEN 

IF( IRB(J) .GT.O)  THEN 
J=  IRB(J) 

K-l 

ELSE 

J--IRB(J) 


Take  the  item  to  which  the  backtrack  points. 


END  IF 
ELSE 

End  of  process 
RETURN 
END  IF 
END  DO 
END  IF 
END  DO 


SUBROUT  I NE  RANDOM ( LEC , I MP , NCOL , NROW ) 


Used  to  randomize 

the 

data  matrix 

of  an 

assigned 

mass-storage  file. 

ARGUMENTS  : 

LEC  :  The  logical 

unit 

number 

for 

wr i t i ng 

on  the 

terminal . 

IMP  :  The  logical 

unit 

number 

for 

reading 

from  the 

terminal . 

NCOL  :  The  number  of 
NROW  :  The  number  of 

columns . 
rows . 

IMPLICIT  INTEGER*2  (I-N) 

REALM  XRAN (  2048  ) 

INTEGER*2  AR(128) ,NO(128) , INIT(6) 
CHARACTER* 4 5  DEVOIR, NAME* 10 
REAL *4  X( 128 ) , Y( 128 ) 

DATA  DEVDI R , NAME/ ' DUAO  '/ 

DATA  LOGOLD/2/ 

DATA  INIT/59,47,62,38,45,23/ 

DATA  INDRAN/1/ 


NBYTES=NCOL*4 
WRITE ( IMP, 100) 

CALL  FICH( '069' , LOGOLD , 1 , DEVDI R, NAME , NROW, MBYTES , 
1  'DIRECT' , LEC, IMP) 

DO  1=1, NROW 

XRAN { I ) = RANDAN { INIT, INDRAN) 

END  DO 

Use  tree  sort  because  data  are  randomized. 


CALL  SXTREE  (  XRAN ,  NO  ,  N'RCW  ,  1  ) 

DO  1=1, NRCW 

READ ( LCGOLD 1  I )  (X(J)  ,J=i,NCCL> 

READ  (  LCGOLD  ’  NO  (  I  )  )  (Y(J)  ,J  =  l,NTCOL) 

WRITE (LCGOLD1 I )  (Y(J) , J=1 ,NCOL) 

WRITE ( LCGOLD1 MO ( I ) )  (X( J) ,J=l,NCOL) 

J=I 

DO  WHILE(MO( J) .ME. I ) 

J=J  +  1 
END  DO 
NO{ J ) =NO( I ) 

END  DO 

CLOSE (LOGOLD) 

RETURN 

100  FORMAT(/’ $  1 , 3X, 1  Assign  the  1  1  OLD  1  1  direct  access 
1  1 /4X , 37 ( 1  -  1 ) ) 

END 


FUNCTION  RANDAN ( I N I T , I ND ) 
C 

IMPLICIT  INTEGER*2  (I-N) 

C 

C 

c 
c 
c 


DOUBLE  PRECISION  X 

INTEGER*2  A ( 6 ) , INIT ( 6 ) , LN ( 6 ) ,LNP1(6) ,C,P,Q 
DATA  M/36/Q/6/A/59 , 47,62,38,45,23/ 

I F ( I ND . NE . 0 ) THEN 


DO  WHILE  ( I . LT.Q) 
1  =  1  +  1 

LN  (  I  )  =  I  NIT  (  I  ) 
END  DO 

IND=0 


ELSE 
END  IF 
C 

C=0 

K=Q 

MQ=M/Q 
IMQ=2 . **MQ 
C 

DO  WHILE  (K.GT.O) 
IQMK=Q-K 
1=0 
P  =  0 
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DO  WHILE  ( I .LE. I QMK ) 

P=P+ A (  I  +K )  *LN  (  Q-  I  ) 

1  =  1  +  1 
END  DO 
P  =  P+C 
C=P/IMQ 

LNP1 ( K ) =  P-C* IMQ 
K=K- 1 
END  DO 
C 

1  =  0 

X=0 .DO 

c 

DO  WHILE  ( I .LT.Q) 

1  =  1  +  1 

X»X+LNP1( I ) *2 . *  * ( -MQ* I ) 

LN ( I ) =  LNP 1 (  I  ) 

END  DO 
C 

RANDAN =X 
C 

RETURN 

C 

END 

SUBROUTINE  FINDMM  ( LEC , IMP , NCOL , NROW , FMIN , FMAX ) 


IMPLICIT  INTEGERS  (I-N) 

REAL *4  X ( 1 2 8 ) ,FMIN(128) , FMAX (128) 

CHARACTER* 4 5  DEVDIR, NAME*10 
DATA  DEVOIR, NAME/' DUAO  '/ 

DATA  LOGOLD/2/ 

DO  J=1 , NCOL 

FMIN (J)=+l.E+38 
FMAX (J)=-l.E+38 
END  DO 

WRITE( IMP, 100 ) 

NBYTES=NCOL*4 

CALL  FICH  ( '069' ,LOGOLD, 1, DEVDIR, NAME, NROW, NBYTES , 1, 
1  ' DIRECT’ , LEC, IMP) 

DO  1=1, NROW 

READ ( LOGOLD ' I )  ( X ( K ) , K= 1 , NCOL ) 

DO  J= 1 , NCOL 

IF  (FMIN(J) .GT.X(J) )  THEN 
FM I N ( J ) =X ( J ) 

END  IF 

IF  (FMAX(J) .LT.X(J) )  THEN 
FMAX ( J ) =X ( J ) 
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SUBROUT  I NE  CONV ( NCOL , NROW , COLMNE ,  NC ,  I NDEX ) 


c 

C  This  subroutine  analyzes  the  expression  inserted  b 

C  keyboard  in  the  form  of  string  in  the  following  kin 

C  elements: 

C  .  Functions  (eg.  SQRT[7]) 

C  .  Row  assignment  (eg.  [8]) 

C  .  Reals  or  integers 

C  .  Delimiters  ( eg ) 

C  .  Operators  :  '+■ 

C  The  result  of  this  analysis  is  an  infix  expression 

C  consisted  of  the  above  kind  of  elements,  but  in 
C  characters. 

C 

C  ARGUMENTS : 

C 

C  NCOL 

C  NROW 

C  COLMNE 

C 

C  NC 

C  INDEX 

C 
C 

£★★★*★★★**★★**★*★★★★★★***★★****★*★**★****★***★*★★*****★******:*• 

IMPLICIT  I NTEGER*  2  (I-N) 

INTEGER* 2  CN,PP 

REAL*4  X ( 1 28 ) , ARG , VAL , R , RES 

CHARACTER* 2 4  COLMNE (128) .STRING 

CHARACTER* 1  SYMB( 24 ) , INF( 18 , 14 ) , POST( 18 , 14 ) , F( 7 ) ,NUM( 3 ) , 

1  CONS ( 14 ) , 3R 

CHARACTER* 5  FUN 

CHARACTER* 4 5  NAME* 10 , DEVDIR 

LOG  I  CAL *1  MARK, TEST, NEG, CHECK 

EQU I VALENCE ( SYMB ( 1 ) , STR I NG ) 

DATA  DEVD I R , NAME/ ' DUAO  '/ 

DATA ' LOGOLD, LOGNEW/2 , 3/ 


:  The  number  of  columns. 

:  The  number  of  rows. 

:  Array  storing  the  column  mnemonic  names  and  the 
assigned  transformations. 

:  The  index  of  the  array  COLMNE. 

:  Pointer  marking  the  index  of  COLMNE  on  which 
the  transformations  start. 
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n.*< 


NBYTES=(NCOL-(NC- INDEX) ) *4 

Open  the  file  which  contains  the  data  to  be  trar.s 
WRITE  (6,300) 

CALL  FICH( '069' , LOGOLD , i , DEVOIR , NAME , NROW , MBYTES , 1 , 

1  'DIRECT' ,5,6) 

MBYTES =NCOL* 4 

Open  a  new  file  with  the  same  name,  on  which 
transformed  data  will  be  stored. 

WRITE  (6,400) 

CALL  F I CH ( ' 0 6 9 ’  , LOGNEW , 1 , DEVD I R , NAME , NROW , MBYTES , C , 

1  ' DIRECT' , 5 , 6 ) 

For  each  row  of  the  data  matrix,  execute  the  assi 
transformat  ion . 

DO  JK= 1 , NROW 

Read  the  entire  row  of  data. 

READ ( LOGOLD 'JK)  (X(K) , K= 1 , MCOL- ( NC- INDEX ) ) 

Calculate  the  number  of  transformations  (IND). 
IND=NC- INDEX 

For  each  transformation, 

DO  IK= 1 , NC- I NDEX 

Store  the  expression  representing  the  transforma 
in  the  variable  STRING.  In  following  this  string  wil 
analyzed . 

STRING=COLMNE ( I K+ INDEX) 

Initialize  the  pointers. 

J  =  1 
N=  1 
L  =  1 
M=  1 
IP=1 
BR= '  ' 

Initialize  the  flags. 


TEST=. FALSE. 
MARK= . FALSE. 


CHECK = . FALSE. 

NEG= . FALSE. 

For  each  character  of  the  string, 

DO  1=1,24 

If  the  character  is  a  letter,  store  it  in  the  on 
characte r  array  F  and  signal  the  encountering  of 
function  in  the  transformation  by  seting  the  :1a 
TEST  to  true. 

IF  ( SYMB ( I )  . GE .  1  A '  . AND . SYM3 ( I )  . LE .  ' 2 ’  )  THEN 
F(N)=SYMB( I ) 

TEST= .TRUE. 

N = N  +  1 

If  the  character  is  number  or  then 

ELSE  IF  ( (SYMB( I ) .GE. ' 0 ' .AND. SYMB ( I ) . LE . ' 9' ) .0 
SYM3 ( I ) .EQ. ' . ’ )  THEN 

If  the  bracket  is  closed  or  no  bracket  has  stil 
been  encountered,  the  number  is  a  constant  use 
by  the  transformation.  Store  the  number  in  th 
array  CONS  and  mark  the  encountering  of 
constant  by  seting  the  flag  MARK  to  true. 

IF  (BR.EQ. ' 3 ' .0R.3R.EQ. '  ')  THEN 

CONS ( L ) =SYMB ( I ) 

MARK*. TRUE. 

L  =  L+1 

Else  if  the  bracket  is  opened,  then 

ELSE  IF  (BR.EQ. '[' )  THEN 

if  function  has  been  encountered,  the  numbe 
is  the  representation  of  the  column  numbe 
the  value  of  vich  is  going  to  be  used  a 
argument  of  the  function. 

IF  (TEST. EQ. .TRUE. )  THEN 
F ( N ) =SYM3 ( I ) 

N=N-*-  i 

Else,  the  number  is  the  representation  c 
column  but  the  coresponding  value  i 
going  to  be  used  as  a  constant. 


ELSE 

NUM(M) =SYMB( I ) 


nnn  n  no  nn  n  n  on  nn 


CHECK® . TRUE . 
m=m-  1 
END  IF 
END  IF 

C  If  the  character  is  set  it  to  variable  BR 

ELSE  IF  (SYMBU  )  .  3Q .  '  [  '  )  THEN 
BR=SYM3( I ) 

if  function  has  been  e.ncounterd,  store  the 
in  the  same  array  with  the  function  (?) 

I F  ( TEST . SQ . . TRUE . )  THEN 
F ( N ) =SYM3 ( I ) 

N=N+1 

else  store  it  in  the  same  array  with  the 
numbers  representing  columns. 

ELSE 

NUM(M) =SYMB( I ) 

M=M+ 1 
END  IF 

Else  if  the  symbol  is  " ] "  then  set  it  to  variable 
BR  and, 

ELSE  IF  ( SYMB ( I ) . EQ . ' ] ' )  THEN 
BR=SYMB ( I ) 

if  function  has  been  encountered,  store  it  in 
the  same  array 

I F  ( TEST . EQ . . TRUE . )  THEN 
F ( N ) =SYMB ( I ) 

else  store  it  with  the  number  representing 
column. 

ELSE 

NUM ( M ) =SYM3 ( I ) 

END  IF 

Else  if  the  symbol  is  then 

ELSE  IF  ( SYMB ( I ) . EQ . ' - ' )  THEN 

if  the  previous  character  was  means  that 

follows  negative  number  and  mark  it  by  seting  the 
flag  NEG  to  true. 
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IF  ( SYM31 I-i ) .  EQ. ' ( ' )  THEN 
NEG= .TRUE. 

Else  the  character  represents  the  synbc 

of  the  subtraction. 

ELSE 

If  function  has  been  encountered, 

I F  ( TEST . EQ . . TRUE . )  THEN 

If  the  NEG  flag  is  true  the  is  place 

at  the  begining  of  the  function  storing  i 
the  generated  infix  expression. 

I F  ( NEG . EQ . . TRUE . )  THEN 
INF ( IP, 1)=’ 

and  in  followng  the  function  name  store 
in  the  array  F  is  also  placed  in  rh 
infix  expression. 

DO  J= 1 , N 

INF ( IP, J- 1 ) =F ( J ) 

END  DO 

Since  the  is  used  to  negate  th 

function  the  flag  is  reset  to  FALSE, 

NEG=. FALSE. 

and  the  pointer  of  the  generated  infi 
expression  IP,  is  increased. 

IP=IP+1 

The  "("  is  also  placed  as  element  of  th 
infix, 

I NF ( IP, 1 ) =SYMB ( I ) 

IP=IP+1 

and  the  flag  TEST  is  reset  to  FALSE  t 
indicate  that  no  function  is  active. 

TEST=. FALSE. 

The  index  of  array  F  is  set  to  one 
ready  to  accept  the  next  fuction  name. 
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Else  (the  function  is  not  negative) 
repeat  the  same  procces  without  negating 
the  function. 

ELSE 

DO  J=1,N 

I NF ( I P , J ) =  F ( J ) 

END  DO 
IP=IP+1 

INF ( IP, 1) =SYMB( I ) 

IP=IP+1 
TEST= . FALSE. 

N=  I 
END  IF 

Else  if  constant  has  been  encountered, 

ELSE  IF  ( MARK . EQ .. TRUE . )  THEN 

if  the  NEG  flag  is  set,  place  the  constant 
stored  in  array  CONS  in  the  generated 
infix  expression  but  negeting  it  first. 

I F  ( NEG . EQ . . TRUE . )  THEN 
I NF ( I P , 1 )  =  ' -  ' 

DO  J= 1 , L- 1 

INF ( IP , J+ 1 ) =CONS ( J ) 

END  DO 
NEG=. FALSE. 

IP-IP+1 

I NF ( I P , 1 ) =  S YMB ( I ) 

IP-IP+1 
MARK= . FALSE. 

L=1 


Otherwise  do  the  same  without  negation. 

ELSE 

DO  J= 1 , L- 1 

I  NF ( IP, J)=CONS(J) 

END  DO 
IP»IP*1 

INF ( IP, 1 ) =SYMB ( I ) 

IP-IP+1 
MARK= . FALSE. 

L=  1 
END  IF 

Repeat  the  same  process  if  number  representing 
column  has  been  encountered. 


179 


ELSE  IF  ( CHECK. EQ. .TRUE. >  THEN 
I  F  (  N’EG .  EQ .  .  TRUE  .  )  THEN 
INF ( I ? , 1 ) = ' - ' 

DO  J  =  1 ,  M 

INF ( IP, J*i ) =  NUM ( J ) 

END  DO 
NEG*. FALSE. 

IP= IP+1 

INF ( IP , I ) =SYMB ( I) 

IP-IP+1 
CHECK = .FALSE. 

M=  1 
ELSE 

DO  J= 1 , M 

INF ( IP, J) =  NUM ( J ) 

END  DO 
IP-IP+1 

I NF ( IP, 1)=SYMB( I ) 

IP-IP+1 
CHECK-. FALSE. 

M=  I 
END  IF 
END  IF 
END  IF 

If  the  character  is  an  operator  or  end  of  string  is 
encountered,  the  current  active  funct  ion , constant  or 
column  value  must  be  placed  in  the  generated  infix 
expression.  The  same  process  used  above  for  the 
is  going  to  be  used  herein  also. 

ELSE  IF  ( (SYMB( I) .EQ. ' ( ' .OR.SYMB(I ) .EQ. ' ) ' .OR. 
SYMB ( I ) .EQ. ' + ' .OR. 

SYMB ( I ) . EQ . ' * ' . OR . SYMB ( I ) . EQ . ' / ' . OR . 
SYMB { I ) . EQ . ' ~ . OR. SYMB ( I ) . EQ . '  ' ) . AND . 

SYMB ( I - 1 ) . NE . '  ')  THEN 


I F  ( TEST . EQ . . TRUE . )  THEN 
IF  (NEG.EQ. .TRUE. )  THEN 
INF( IP, 1 ) = ' - ’ 

DO  J  =  1  ,  N 

I NF ( IP, J  +  l ) =F( J) 
END  DO 
NEG= . FALSE . 

IP=IP-I 

INF( IP, 1 ) =SYM3 ( I ) 

IP-IP+1 

TEST= .FALSE. 

N-l 

ELSE 

DO  J  =  1 ,  N 

I NF ( IP , J ) =F ( J ) 


END  DO 

ip= ip+l 

INF ( IP, 1 ) =SYMB ( I ) 

IP=IP+i 
TEST=. FALSE. 

N=  1 
END  IF 

ELSE  IF  ( MARK. EQ. .TRUE. )  THEN 
I F  ( NEG . EQ . . TRUE . )  THEN 
I NF ( IP,1)='-’ 

DO  J= 1 , L- 1 

INF ( IP, J+l ) =CONS ( J ) 

END  DO 
NEG*. FALSE. 

IP=IP+1 

INF ( IP, 1 ) =SYM3 ( I ) 

IP=IP+1 
MARK =. FALSE. 

L=  1 
ELSE 

DO  J= 1 , L-l 

I NF ( IP, J)=CONS( J) 

END  DO 
IP=IP+1 

I NF ( IP, 1)=SYMB( I ) 

IP=IP+1 
MARK= .FALSE. 

L=  1 
END  IF 

ELSE  IF  (CHECK. EQ. .TRUE. )  THEN 
IF  (NEG. EQ. .TRUE. )  THEN 
INF ( IP,1)='-' 

DO  J= 1 , M 

INF ( I P , J+ 1 ) =NUM ( J ) 

END  DO 
NEG=. FALSE. 

IP=IP+1 

INF ( IP, 1)=SYMB( I ) 

IP=IP+1 
CHECK=. FALSE. 

M=  1 
ELSE 

DO  J= 1 , M 

I NF ( I P , J ) =  NUM ( J ) 

END  DO 
IP=IP+1 

INF ( IP, 1 ) =SYMB ( I ) 

IP=IP+1 
CHECK=. FALSE. 

M=1 
END  IF 

ELSE  IF  ( TEST. EQ. .FALSE. .AND. MARK. EQ. .FALSE. 
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. AND . CHECK . EQ . . FALSE . )  THEN 
INF ( I? , 1 ) =  S  YM3 (  I ) 

i?=i?+: 

END  IF 
END  IF 
END  DO 
IP-IP-2 

As  soon  an  infix  expression  is  generated,  the  process 
for  its  evaluation  is  continued,  by  calling  the 
appropriate  subroutines. 

CALL  PFIX( INF, POST, IP,PP) 

CALL  EVAL ( LCGOLD , POST , RES , PP , I NDEX , NC , JK , NCOL , 

1  X , FUN , ARG , I ERR ) 

The  result  is  placed  in  one  position  after  the  last 
column  increasing  the  numbers  of  column  by  one. 

X( NCOL- IND+1) -RES 

One  transformation  has  been  evaluated  and  their  number 
is  decreased. 

IND-IND-1 
END  DO 

If  the  flag  IERR  used  to  signal  that  invalid  argumen 
for  a  function  has  been  encountered  (eg.  Square  root  o 
negative  number)  is  not  set  then  the  new  row  (contani 
the  transformed  columns)  is  written  to  the  new  file. 

IF  ( I ERR . NE . 1 . AND . I  ERR . NE . 2 )  THEN 
WRITE ( LOGNEW ' JK )  (X<K) ,K=1,NC0L) 

Else  a  message  is  displayed  and  the  program  returns  for 
new  assignement. 

ELSE  IF  (IERR.EQ.l)  THEN 
WRITE( 6,100)  FUN, ARG 
CLOSE (LOGNEW) 

RETURN 

ELSE 

WRITE ( 6 , 200 ) 

CLOSE ( LOGNEW) 

RETURN 
END  IF 
END  DO 

CLOSE (LOGNEW) 

RETURN 

FORMAT ( //4X, ' INVALID  FUNCTION  ARGUMENT  :  ' , A5 , * ( ' , 

1  F14.6,  '  )  '  ) 
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FORMAT (//4X, ’ INVALID  DIVISION  BY  0  ! ! ' ) 

FORMAT ( //4X Ass ign  the  ''OLD1'  direct  access  file  : 
1  / 4X  , 3  7 (  ’  —  *  )  ) 

FORMAT ( //4X Ass ign  the  ''NEW'  direct  access  file  : 
1  / 4X  , 3 7 ( '  —  '  )  ) 

END 


SUBROUT  I NE  COMP ( FUN , ARG , AP , I  ERR ) 


’’k'k'iC'kif'k'kiC'kiK'k'k'k'kjC'kiC'k'k'k'k'k'kit'k'kiC'k'kiC'k'kif'k'k'kitic’k: 


This  subroutine  is  used  to  compute  the  values  of 
functions  that  may  be  included  in  a  transformation  us 
the  FORTRAN  77  build-in  functions. 


ARGUMENTS : 


FUN  :  Name  of  the  function. 

ARG  :  Argument  of  the  function. 

AP  :  Result  of  the  function. 

I ERR  :  Flag  indicating  that  an  invalid  argument 
assigned. 


IMPLICIT  INTEGER*2  (I-P) 

CHARACTER *5  FUN 
REAL *4  ARG , AP , AX 

IERR=0 

IF  ( FUN . EQ . 1  SQRT ’ )  THEN 

IF  (ARG.GE.O)  THEN 
AP=SQRT( ARG) 

ELSE 

I ERR= 1 
END  IF 

Use  the  build  in  intrincic  functions  of  FORTRAN  77 
the  computation  of  the  several  assigned  by 
expression  functions. 

ELSE  IF  ( FUN .  EQ .  ’  LOG’)  THEN 
IF  (ARG.LE.O)  THEN 
AP=ALOG( ARG) 

ELSE 

I ERR= 1 
END  IF 

ELSE  IF  ( FUN . EQ . ’  LOGC ’ )  THEN 
IF  (ARG.LE.O)  THEN 
AP=LOG 1 0 ( ARG ) 

ELSE 
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END  IF 


ELSE  IF  ( FUN.EQ. ' 
AP=EX?( ARG) 

EX?'  ) 

THEN 

ELSE  IF  (FUN.EQ.' 
AP=SIN( ARG) 

SIN'  ) 

THEN 

ELSE  IF  (FUN.EQ. ' 
AP=COS( ARG) 

COS  ’  ) 

THEN 

ELSE  IF  (FUN.EQ. ' 
AP=TAN ( ARG ) 

TAN’  ) 

THEN 

ELSE  IF  (FUN.EQ.' 
AP=AS IN ( ARG ) 

AS  IN'  ) 

THEN 

ELSE  IF  (FUN.EQ. ' 
AP=ACOS( ARG) 

ACOS ' ) 

THEN 

ELSE  IF  (FUN.EQ.' 
AP=ATAN( ARG) 

AT AN' ) 

THEN 

ELSE  IF  (FUN.EQ.' 
AP=ABS( ARG) 

ABS  '  ) 

THEN 

ELSE  IF  (FUN.EQ.' 
AP=SINH( ARG) 

SINK') 

THEN 

ELSE  IF  (FUN.EQ.' 
AP=COSH ( ARG ) 

COSH' ) 

THEN 

ELSE  IF  (FUN.EQ.' 
AP=TANH( ARG) 

TANH ' ) 

THEN 

C  Compute  the  Arc  Hyperbolic  Sin  function  not  included  in 

C  the  build  in  functions  of  the  language. 

ELSE  IF  ( FUN. EQ . ' ASINH ' )  THEN 
ARG= ABS ( ARG ) 

AP=ALOG ( ARG+SQRT ( ARG*ARG+1 ) ) 

IF  (AP.LT.O)  THEN 
AP=-AP 
END  IF 
END  IF 


RETURN 

END 

£★**★*★★**★****★★**★***★******★*★**★********★*****★*★****•*■**** 
SUBROUTINE  PFIX ( INF , POST , I P , PP ) 

★★★★★★★★★★a************************************************** 


This  subroutine  transforms  the  infix  expression  produced 
by  the  subroutine  CONVERT  to  postfix  notation  using  the 
push-down  stack  method. 

IMPLICIT  INTEGER* 2  (I-N) 

INTEGER *2  PP 

CHARACTER* 1  POST( 18,14), INF( 18 , 14 ) ,STACK( 30 ) 

Initialize  the  stack  pointer  K  and  the  pointer  PP  of  the 
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array  holding  the  created  postfix  expression. 

K=Q 

PP=0 


For  each  element  of  the  infix  expression, 

DO  I  =  1 ,  I P 

If  the  first  character  of  the  element  is  letter  or  "[" 
place  it  on  the  generated  postfix  expression. 

IF  { ( INF ( I , 1) .GE. ' A' .AND. INF ( I , 1 ) . LE . ' Z ' ) . OR . INF ( I , 1 ) 
1  EQ. ’ [ ’ )  THEN 

PP=PP+1 
DO  J=1 , 14 

POST ( PP , J ) = I NF ( I , J ) 

END  DO 

Else  if  the  first  character  is  a  number  or  then 

place  it  on  the  generated  postfix  expresion. 

ELSE  IF  ( ( INF( I , 1 ) .GE. ’ 0 ’ . AND. INF( I , 1 ) . LE . ’ 9 ’ ) .OR. 

1  INF( I , 1) .EQ. 1 . 1 )  THEN 

PP=PP+1 
DO  J  =  1 , 14 

POST ( PP , J ) = I NF ( I , J ) 

END  DO 

Else  if  the  element  is  which  has  the  lowest 

priority  of  operators, 

ELSE  IF  (INF (1,1) .EQ. )  THEN 

if  the  stack  is  not  empty  and  the  topmost  element  is  not 
"(",  pop  the  stack  and  place  the  element  on  the  postfix 
expression,  push  the  next  element  of  the  infix 
expression  into  the  stack. 

IF  ( K . NE . 0 . AND . STACK ( K ) . NE . 1 ( ' )  THEN 
PP=PP+1 

POST ( PP , 1 ) =STACK ( K ) 

K=K- 1 
END  IF 
K=K+ 1 

STACK ( K ) = I NF ( 1,1) 

Else  if  the  element  is 

ELSE  IF  ( INF( I , 1 ) .EQ. ’ - ' )  THEN 


if  the  next  character  of  the  same  element  is  a  number  or 
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which  means  that  the  is  the  symbol  of  the 

subtraction,  place  the  element  in  the  postfix  expression. 

IF  ( ( INF ( I , 2 ) . GE . ' 0 ' . AND . I NF ( I , 2 ) . IE . ' 9 ' ) . CR . 

1  INF ( I , 2 ) . EQ . ' [ ' )  THEN 

PP=PP+1 
DO  J=1 , 14 

POST ( PP , J ) = INF ( I ,J) 

END  DO 

Else  the  second  element  is  a  letter,  also  place  it  on 
the  postfix. 

ELSE  IF  ( INF (I ,2) .GE. ' A ’ .AND. INF( I ,2 ) . LE . ' Z ' )  THEN 
PP=PP+1 
DO  J=l, 14 

POST ( PP , J ) = I NF ( I , J) 

END  DO 

Else,  if  the  stack  is  not  empty  and  the  topmost  element 
of  the  stack  is  not  place  the  topmost  element  of 

the  stack  on  the  postfix  and  push  into  the  stack  the 
next  element. 

ELSE 

IF  ( K . NE . 0 . AND . STACK ( K ) . NE . ' ( ’ )  THEN 
PP=PP+1 

POST ( PP , 1 ) =STACK ( K ) 

K=K- 1 
END  IF 
K  =  K+ 1 

STACK ( K ) = I NF (1,1) 

END  IF 

If  the  next  element  is  or  "/", 

ELSE  IF  ( I NF ( I , 1 ) . EQ . ' * ’ . OR . I NF ( I , 1 ) . EQ . ' / ' )  THEN 

if  the  topmost  element  of  the  stack  is  an  operator  with 
lower  priority  or  " ( " ,  push  it  into  the  stack, 

I F  ( STACK ( K ) . EQ . '  +  ’ . OR . STACK ( K ) . EQ . ' - ’ . OR . STACK ( K ) . 
1  EQ. ’ ( ' )  THEN 

K=K-t- 1 

STACK ( K ) = INF ( 1,1) 

else  until  the  stack  is  empty  or  the  " ( "  delimiter  is 
encountered,  pop  the  stack  and  place  the  operators  on 
the  postfix  expression. 

ELSE 

DO  WH I LE ( K . NE . 0 . AND . STACK ( K ) . NE . '  (  '  ) 
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?p=pp+l 

POST ( PP , 1 ) =  STACK ( K ) 

X  =  K-  i 
END  DO 
K=K  +  1 

STACK ( K) = INF ( 1,1) 

END  IF 

If  the  next  element  is  of  hihger  priority  push  it 

into  the  stack. 

ELSE  IF  ( INF ( I , 1 ) . EQ . 1 ~ ’ )  THEN 
K=K+ 1 

STACK ( K ) = I NF ( 1,1) 

If  it  is  " ( " ,  also  push  it  into  the  stack. 

ELSE  IF  ( INF ( I , 1 ) . EQ . ' { 1 )  THEN 
K=K+ 1 

STACK ( K ) = INF ( 1,1) 

But  if  it  is  a  ")",  pop  the  stack  and  place  the 
operators  on  the  postfix  until  the  "("  is  encountered. 

ELSE  IF  ( INF( I , 1) .EQ. ' ) ’ )  THEN 
DO  WHILE (STACK(K) .NE. '  (  '  ) 

PP=PP+1 

POST ( PP , 1 ) =STACK ( K ) 

K=K- 1 
END  DO 
K=K-  1 
END  IF 
END  DO 

At  the  end  if  the  stack  is  not  empty,  pop  it  until  is 
empty . 

IF  (K.NE.O)  THEN 
DO  WHILE ( K . NE . 0 ) 

PP=PP+1 

POST ( PP , 1 ) =STACK { K ) 

K=K- 1 
END  DO 
END  IF 
RETURN 


SUBROUT I NE  EVAL ( LOGOLD , POST , RES , PP , I NDEX , NC , JK , NCOL , 
1  X, FUN, ARG, I  ERR) 


L  87 


/  / 


This  subroutine  is  used  to  evaluate  a  postfix  expression 
using  the  push-down  stack  technique  . 

ARGUMENTS : 


LOGOLD  : 


POST  : 

RES  : 

PP  : 

INDEX  : 


NC 


The  direct  access  file  containing  the  data 
before  any  transformation.  The  same  file  is 
used  to  store  the  data  after  transformations 
have  been  performed  to  them. 

Two  dimention  array  storing  the  postfix 

expres ison . 

The  result  of  the  expression. 

The  number  of  elements  in  the  postfix 

express  ion . 

Pointer  marking  the  end  of  mnemonic  names  in 
the  array  (COLMNE)  that  stores  column  mnemonics 
and  transformations. 

The  index  of  the  array  COLMNE. 


JK 

NCOL 

X 

FUN 

ARG 
I  ERR 


The  number  of  columns. 

Array  storing  the  name  of  the  functions 
contained  in  an  expression. 

The  argument  of  the  function. 

Flag  indicating  invalid  function  arguments  or 
division  by  zero. 

*********************************************** 


IMPLICIT  INTEGER*2  (I-N) 

INTEGER* 2  NC, PP , INDEX, POINT ,CN 

REAL *4  STACK ( 24 ) ,X(128) , 0P1 , 0P2 , OP , RES , R , ARG , AP 
CHARACTER* 1  POST (18, 14) ,VAL(14) ,DUM(14) , FUN(5) ,COL( 3) , 
1  CONS  (14)  ,  FUNK  5) 

CHARACTER* 5  FUN 5 
EQUIVALENCE  ( FUNS , FUN1 ( 1 ) ) 

IERR=Q 
L=  1 

For  each  element  of  the  postfix  expression. 

DO  I=1,PP 

If  the  element  is  a  letter, 

IF  ( POST ( I , 1 ) . GE . ' A ' . AND . POST (1,1). LE . ' Z ' )  THEN 
J  =  1 


Store  until  the  "["  is  encountered  the  characters  of 
function  name  in  FUN. 


n  n  n  i-  on  non 


DO  WHILE  (  POST  (  I  ,  J  )  .  N'E  .  '  L  '  ) 

FUN ( J ) =POST ( I , J) 

J-J  +  l 
END  DO 
JA= J- 1 
IJ  =  0 

DO  WHILE  (JA.LT.5) 

IJ-IJ+1 
JA=JA+1 
FUN1 ( I J ) = '  ' 

END  DO 
JA=0 

DO  WHILE ( IJ.LT.5) 

IJ-IJ+1 
JA= JA+ 1 

FUNK  I J  )  =FUN(  JA) 

END  DO 
J=J  +  1 
KA=  1 

Store  until  " ] "  is  encountered  the  numbers 
contained  between  the  brackets  and  representing 
column  number  in  array  COL. 

DO  WH I LE  (  POST  (  I  ,  J  )  .  NE .  '  ]  '  ) 

COL ( KA ) =POST { I , J) 

KA=KA+ 1 
J=J  +  1 
END  DO 

Decode  the  characters  of  COL  to  obtain  the  numbe 
of  column. 

DECODE (3,100, COL )  CN 
FORMAT ( I <KA-1> ) 

Using  the  uncoded  column  number  CN  assign  the  va 
of  the  corresponding  column  as  argument  to 
f unct ion . 

ARG=X ( CN ) 

Compute  the  value  of  the  function. 

CALL  COMP ( FUNS , ARG , AP , I ERR ) 

Push  the  result  into  the  stack. 


STACK ( L ) = AP 


[•Til 


e  ir  me  current  element  o:  the  posttix  :s 

E  IF  ( POST ( I , I ) . EQ . ' i ' )  THEN 
J  =  2 
K3=  1 


Place  the  numbers  (characters)  contained  betvee 
the  brackets  in  array  CCL . 

DO  WH I LE ( POST ( I , J ) . NE . ' ] ' ) 

COL ( KB ) =POST ( I , J) 

J=J+1 
KB=K3+ 1 
END  DO 

Decode  the  content  of  COL,  obtain  the  number 
colun  CN  and  push  into  the  stack  the  correspond 
column  value. 

DECODE {3,200, COL )  CN 
FORMAT ( I<KB-1>) 

STACK ( L) =X(CN) 

L  =  L+ 1 


;e  if  the  current  element  of  the  post  is  a  num. 


ELSE  IF  ( (PCST( I , 1) .GE. ' 0 ' .AND. POST ( I , 1) . LE . ' 3 ' 
OR . POST ( I , 1 ) . EQ . ' . ' )  THEN 

J=1 
KC=  1 


store  the  characters  of  this  element  in  the  ar 
CONS. 

DO  WHILE ( ( POST ( I , J ) . GE . ' 0 ' .AND. POST ( I , J ) . LE . 

'  9 ’  ) .OR. POST ( I , J)  .EQ.  '  . '  ) 

CONS ( KC ) =POST ( I , J ) 

J=J  +  1 
KC=KC+ 1 
END  DO 
POINT=0 

Find  the  position  of 
DO  I K= 1 , KC- 1 

IF  (CONS( IK) . EQ. ' . ' )  THEN 
PO I NT= I K 
END  IF 
END  DO 


If  no  point  exists  then  add  a  point 


i 


1 


s 


i 


I 


i 


i 


IF  ( POINT. EQ. 0 )  THEN 
CONS ( KC ) = ' . ’ 

C  decode  the  number  and  push  it  into  the  stack 

DECODE (KC, 5 CO, CONS)  OP 
500  FORMAT (F<KC-1>. 0 ) 

STACK ( L ) =OP 
L  =  L+ 1 

C  else  decode  the  representation  of  a  real  and  push 

C  it  into  the  stack. 

ELSE 

DECODE (KC- 1,3 00, CONS)  OP 
300  FORMAT ( F<KC- 2  > . <KC- 1 -PO I NT> ) 

STACK ( L ) =OP 
L  =  L+  1 
END  IF 

C  If  the  element  is  then  examine  the  second 

C  character  to  determine  if  represents  subtraction  or  a 

C  negetive  value  is  present.  In  the  first  case  treat 

C  the  as  the  other  operators  while  in  the  second 

C  negate  the  following  the  sign  value. 

ELSE  IF  ( POST ( I , 1 ) . EQ . ' - ' )  THEN 

IF  ( POST ( I , 2 ) . GE . ’ 0 ' . AND . POST ( I , 2 ) . LE . ' 9 ' )  THEN 
J  =  2 
KD=  1 

DO  WH I LE (  ( POST ( I , J)  .GE.  ' C '  .AND. POST (  I  , J  >  . LE . 

' 9' ) .OR. POST ( I , J) .EQ. ' . ' ) 

CONS ( KD ) =POST ( I , J) 

J=J  +  1 
KD=KD+ 1 
END  DO 
POINT=0 
DO  I K  =  2 , KD- 1 

IF  ( CONS ( IK) . EQ. ' . ' )  THEN 
PO I NT= I K 
END  IF 
END  DO 

IF  ( PO I  NT . EQ . 0 )  THEN 
CONS ( KC )  =  '  .  ’ 

DECODE  (I  KD,  600,  CONS)  OP 
FORMAT ( F<KD-1> . 0 ) 

STACK ( L) =OP 
L  =  L+  1 
ELSE 

DECODE ( KD- 1 , 400 , CONS)  OP 
FORMAT ( F<KD-2> . <KD- 1 - POI NT> ) 


600 


400 


I 
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STACK ( L ) =  -0P 
L  =  L+  1 
END  IF 

ELSE  IF  (POST! I ,2) . EQ . ' [ ' )  THEN 
J  =  3 
KE=  1 

DO  WH I LE { POST ( I , J ) . NE . ' ] ' ) 

COL ( KE ) =POST ( I , J ) 

J=J  +  1 
KE=KE+1 
END  DO 

DECODE (3,800, COL )  CN 
800  FORMAT ( I <KE-1>) 

STACK ( L ) = -X ( CN ) 

L=L+i 

ELSE  IF  ( POST ( I , 2 ) . GE . ' A ' . AND . POST ( I , 
1  THEN 

J  =  2 

DO  WH I LE { POST (  I , J ) . NE .  '  [  '  ) 

FUN ( J ) =POST ( I ,J) 

J=J  +  1 
END  DO 
JA= J- 1 
IJ-0 

DO  WHILE  (JA.LT.5) 

IJ-IJ+1 
JA=JA+ 1 
FUN1 ( I J ) = '  ' 

END  DO 
JA=0 

DO  WHILE ( IJ.LT. 5) 

IJ-IJ+1 
JA= JA+ 1 

FUNK  IJ)-FUN(JA) 

END  DO 
J=J  +  1 
KF=  1 

DO  WH I LE ( POST ( I , J ) . NE . ' ] ’ ) 

COL ( KF ) =POST ( I ,J) 

KF=KF+ 1 
J=J  +  1 
END  DO 

DECODE (3, 700, COL)  CN 
700  FORMAT ( I <KF-1>) 

ARG=X ( CN ) 

CALL  COMP ( FUN5 , ARG , AP , I  ERR ) 

STACK ( L ) = - AP 
L=L+ 1 

ELSE 

L=L- 1  ' 

OP2  =STACK ( L ) 

L  =  L-  1 


l"l 


N 
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OP 1= STACK ( 1 ) 

R=0P1-C?2 
STACK ( L ) =R 
L=L  + 1 
END  IF 

C  If  the  element  is  an  operator,  pop  the  tvo  topmost 

C  elements  of  the  stack,  apply  the  operator  to  them 

C  and  push  the  result  into  the  stack. 

ELSE  IF  ( POST ( I , 1 ) . EQ . ' + ' . OR . POST ( I , 1 ) . EQ . ' * ' . 

1  POST (1,1) . EQ . V . OR . POST ( I , 1 ) . EQ . ' ~ )  TH 

L  =  L- 1 

0P2  =  STACK ( L ) 

L  =  L- 1 

OPl=STACK(L) 

IF  (P0ST(I,1) .EQ. '+' )  THEN 
R=0P1+0P2 

ELSE  IF  (POST ( 1,1) .EQ. '*' )  THEN 
R=0P1*0P2 

ELSE  IF  ( POST ( 1,1) .EQ. '/' )  THEN 
IF  (OP2.NE.O)  THEN 
R=0P1/0P2 
ELSE 

IERR=2 
RETURN 
END  IF 

ELSE  IF  (POST (1,1) .EQ. ’  ~  ’ )  THEN 
R=0P1**0P2 
END  IF 
STACK ( L ) =R 
L=L  + 1 
END  IF 
END  DO 
L-L-l 

RES=STACK( L ) 


r*J  o 
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SUBROUTINE  DISDAT ( LEC , IMP , NCOL , NROW , I  OPEN, I  CLOSE 


★  ***★★*★★★***★★****** 


This  subroutine  is  used  for  the  display  of  all  or  any 
user  assigned  part  of  the  data  file. 

ARGUMENTS  : 


LEC,  IMP 
NCOL 
NROW 
I  OPEN 

ICLOSE 


Input/Output  logical  numbers  for  terminal. 

Number  of  columns. 

Number  of  rows. 

If  equal  to  1,  assign  and  open  the  direct-access 
data  file  and  output  display. 

:  If  equal  to  1,  close  the  direct-access  data  file 


IMPLICIT  INTEGER* 2  (I-N) 

BYTE  STRING (72) ,FMT1(72) ,FMT2(72) 

CHARACTER* 7  MODCOL , MODROW 
CHARACTER*  7  2  FMTC1 , FMTC2 
CHARACTER* 4 5  DEVDIR , NAME* 10 

REAL *4  X ( 128  ) 

DIMENSION  NOCOL( 256 ) ,NOROW(2048) 

EQUIVALENCE  ( FMTC1 , FMT1 ( 1 ) ) , ( FMTC2 , FMT2 ( 1 ) ) 

DATA  LOGOLD, IMP2/2 , 7/DEVDIR, NAME/ ' DUAO  '/ 

DATA  MODCOL/ ’ columns ’ /MODROW/ ' rows ’ / 

DATA  FMTC2/ '(16,  F14.  6)'/ 

Declare  LOGOLD  unit  data  file. 

IF  (IOPEN.EQ.l)  THEN 
NBYTES=NCOL*4 
WRITE ( IMP, 100 ) 

CALL  FICH( '069' , LOGOLD, 1 , DEVDI R , NAME , NROW , NBYTES , 1 
1  ’ DIRECT' , LEC, IMP) 

Display  output  unit  attribute. 


■  CALL  ENSORT ( LEC , IMP , IMP 2 ) 
END  IF 


Display  conditions  for  columns. 


CALL  ANADI S ( LSC , IMP , NC0L*2 , NCOL , NCCOL , N3C0L , MODCOL ) 

IF (NBCCL.EQ.O)  RETURN 

Display  conditions  for  rows. 

CALL  ANAD I S ( LEC , IMP, NROW  , NROW , NORCW , NBROW , MCDRCW ) 

I F ( NBROW . EQ . 0 )  RETURN 

NOUT=0 

Change  FORMATS  for  outout. 

CALL  FORM (LEC, IMP , FMTC1 , FMT2 , N, II) 

DO  WHILE  (NOUT, LT.NBCOL) 

IBFO-  S' JUT +1 
I EL  - 1 BEG+N- 1 
I F ( I END . GT . NBCOL )  THEN 
IEND=NBCOL 
END  IF 

For  columns. 

M=IEND-IBEG+1 
ENCODE( 2 , 200 , FMT1 ( 07 ) )  M 
For  underlining. 

M=5+M*  1 1 

ENCODE (2,200, FMT 1(25) )  M 

WRITE ( IMP 2 , FMT1 )  (NOCOL(J) ,J=IBEG, I  END ) 

1  =  1 

DO  WHILE ( I .LE. NBROW) 

READ(LOGOLD' NOROW ( I ) ) (X( J) , J=l,NCOL) 

WRITE ( IMP2,FMT2)  NOROW(I) , (X(NOCOL(J) ) ,J=IBEG, I  END) 
1  =  1  +  1 
END  DO 
NOUT=NOUT+N 
END  DO 

IF  ( ICLOSE.EQ. 1 )  CLOSE  (LOGOLD) 

RETURN 

Formats . 

FORMAT ( //4X ,' Name  of  the  existing  data  file  :') 

FORMAT (12) 

END 


SUBROUTINE  FORM  (  LEC  ,  IMP  ,  FMTC1  ,  FMT2  ,  N ,  ID 


C  Permits  the  user  to  determine  the  format  of  the  a 
Cthat  will  be  displayed. 

C 

IMPLICIT  INTEGER*2  ( I -N ) 

3YTE  FMT( 72 ) , FMT2 (  72)  , STRING (72) 

CHARACTER* 7 2  FMTC , FMTC1 

EQUIVALENCE  ( FMTC , FMT ( 1 ) ) 

DATA  FMTC  /' (//7X,  (  X,I3,  X ) /IX , 7 5 ( \ -\ ) / ) ' / 

C  Because  compiler  does  no  admit  quotes  inside  the  chai 
C  they  are  changed  by  'V  and  substituted  after. 

FMT( 28 ) =039 
FMT ( 3  0 ) =  0  3  9 

WRITE ( IMP, 100 ) 

100  FORMAT ( /4X The  normal  format  is  :  nnnnnnn . nnnnnn 

1  //'$’  3X, 

2'To  modify  it  assign  your  format  (ex.  nnn.nn)  <CR>  : 

C  Read  the  user  assigned  FORMAT. 

READ(LEC, 200)  STRING 
200  FORMAT ( 7  2 A1 ) 

IPOINT=0 
1  =  1 

DO  WHILE( STRING ( I ) . NE . '  ') 

IF  ( STRING ( I ) , EQ . ' . ' )  IPOINT=I 
1  =  1  +  1 

END  DO 

C  Data  format. 

IF  ( I . EQ . 1 )  THEN 

C  For  FORMAT (5F14. 6)  for  Data. 

11  =  14 
I POINT =8 
ELSE 

C  For  general  format  for  Data. 

IF  ( IPOINT.EQ.0)  THEN 
I POINT- I 
11  =  1 
ELSE 

11=1-1 
END  IF 
END  IF 

ENCODE (  2,300, FMT  2(08))  11 
300  FORMAT (12) 


nnnnnnnn 


N  =  7  0  / 1 1 

ENCODE( 2 , 300 , FMT2 ( 05 ) )  M 
FMT  2 ( 0  7 )  =  ' F 1 
FMT2 (10)=' . ' 

FMT  2(13)  =  ' ) ’ 

1=11-1 POINT 

ENCODE (2,300, FMT  2(11) )  I 
DO  1=14,72 

FMT  2(1)  =  '  ' 

END  DO 

C  Format  for  Title. 

1 3= ( 1 1-3 ) /2 

14  =  11- ( 13  +  3) 

IF  ( I  3 . NE . 0 )  THEN 

ENCODE( 2 , 300 , FMT( 10 ) )  13 
ELSE 

FMT (12)='  ' 

FMT (13)='  ' 

END  IF 

IF  ( I  4 . NE . 0 )  THEN 

ENCODE (2,300, FMT (17))  14 
ELSE 

FMT (16)='  ' 

FMT (19)=’  ' 

END  IF 

FMTC1=FMTC 

RETURN 

END 


SUBROUTINE  SEEDAT ( LEC , IMP , NCOL , NROW , I OPEN , I CLOSE ) 


LEC,  IMP 
NCOL 
NROW 
I  OPEN 

ICLOSE 


:  Input/Output  logical  numbers  for  terminal. 

:  Number  of  columns. 

:  Number  of  rows. 

:  If  equal  to  1,  assign  and  open  the  direct-access 
data  file  and  output  display. 

:  If  equal  to  1,  close  the  direct-access  data  file 


CHARACTER* 4 5  DEVD I R , NAME* 10 
CHARACTER* 7  MODCOL , MODROW 

BYTE  STRING  (30) 

REAL *4  X( 128 ) , Y( 32 ) 

DIMENSION  NOCOL( 256 ) , NOROW ( 2048 ) 

DATA  LOGOLD , IMP2/2 , 7/DEVDIR , NAME/ ' DUAO  '/ 

1GOLD/12345 . 673/IFOU/O/ 

DATA  MODCOL/' columns' /MODROW/' rows'/ 

Declare  LOGOLD  unit  data  file. 

IF  ( IOPEN.EQ. 1 )  THEN 
NBYTES=NCOL*4 
WRITE ( IMP , 100 ) 

CALL  FICH( '069' , LOGOLD , 1 , DEVD I R, NAME , NROW, N3YTES , 1 , 
1  'DIRECT' ,  LEC, IMP) 

Display  output  unit  attribute. 

CALL  ENSORT( LEC , IMP , IMP2 ) 

END  IF 

Display  conditions  for  columns. 

CALL  AN AD I S ( LEC , IMP , NCOL*2 , NCOL , NOCOL , NBCOL , MODCOL ) 
IF(NBCOL.EQ.O)  RETURN 

Display  conditions  for  rows. 

CALL  ANADIS( LEC, IMP, NROW  , NROW , NOROW , N3R0W , MODROW ) 
IF(NBROW.EQ.O)  RETURN 


NB=Q 


Flags  for  evental  continuation  lines  if  last 
character3 ' , ' . 

I WRIT- 1 
ICONT= 1 


DO  WHILE  ( ICONT.EQ. 1) 


ICONT=0 
Input  string 

IF  ( I WRIT . NE . 0 )  WRITE( IMP, 600 ) 
READ  (LEC, 700)  STRING 
IWRIT=0 


Analysis  of  the  string. 
NCAR=80 


DO  WH I LE  ( STR I NG ( NCAR ) . EQ . '  ' ) 

NCAR=NCAR- I 
END  DO 

IF  ( STR I NG ( NCAR ) . EQ . ' , ' )  THEN 
ICONT= 1 

STRING ( NCAR) = '  ’ 

ELSE 

NCAR=NCAR+ I 
END  IF 
IGOLD=0 
I  BEG  =1 

1=0 

DO  WHILE  ( I .LT.NCAR) 

1  =  1  +  1 

'GOLD'  can  be  any  letter. 

IF  ( ( STRING ( I ) .GE. ’ A’ .AND. STRING ( I ) . LE . ' Z ' ) . OR . 
( STRING ( I ) .GE. ’ a  1  .AND. STRING ( I )  .LE.  ' z '  )  )  TH 
IF  ( I GOLD . EQ . 0 )  THEN 
WRITE( IMP, 200 )  GOLD 
READ  ( LEC, 300 )  GOLD2 
IF  ( GOLD2 . NE . 0 . )  GOLD=GOLD2 
END  IF 
NB-NB+1 
Y(NB)=GOLD 

DO  WHILE  ( STRING ( I ) . NE . ' , ' . AND . I . LT . NCAR . AND 
STRING( I ) .NE. ’  ’) 

1  =  1  +  1 
END  DO 
ELSE 

IPOINT=0 

DO  WHILE  (STRING* I ) .NE. ’ , ’ .AND. I .LT.NCAR. AND 
STRING* I ) .NE. '  ’) 

IF*  STRING* I ) . EQ.  '  .  '  )  IPOINT=I 
1  =  1  +  1 

END  DO 
IEND= I -1 
Number  :  nnn 
IF  ( IPOINT.EQ.O)  THEN 
STRING* I )=' . ' 

IPOINT  =  I 

I  END  =  I 

END  IF 

11  =  1  END- 1 BEG  + 1 

1 2  =  1 1- 1 POINT+ I  BEG- 1 
NB=NB+1 

DECODE* II, 400, STRING* IBEG) )  Y ( NS ) 

END  IF 
I BEG= I + 1 
END  DO 


c  - 

END  DO 
C  - 

K  =  0 

DO  WH I LE ( K . LT . N3R0W ) 

K=K  +  1 

READ ( LOGOLD ' NORCW ( K ) ) ( X ( L ) , L= 1 , NCOL ) 

DO  L=1 , NBCOL 
DO  N=1 , NB 

I F ( X ( NOCOL ( L ) ) . EQ . Y ( N) )  THEN 

I NDEX=NCOL* ( NOROW ( K ) - 1 ) -NOCOL ( L ) 

I FOU= I FOU+ 1 

WRITE ( IMP2 , 500 ) IFOU, INDEX , NOCOL ( L ) , NCRCW(X) , 

1  Y  ( N) 

END  IF 
END  DO 
END  DO 
END  DO 

I F*  (  I  CLOSE  .  EQ  .  1 )  CLOSE  (LOGOLD) 

RETURN 

C  Formats. 

100  FORMAT ( //4X, ' Name  of  the  existing  data  file  :') 

200  FORMAT (/4X, 'Missing  value  "gold"  number  is  :  ' ,F9.3// 

1 ' $ ', 3X, 'Change  or  RETURN  :  ') 

300  FORMAT ( F 18 . 8  ) 

400  FORMAT (F<ll>.<12>) 

500  FORMAT ( // 1 6 , 3X , ' I ndex  :’,I6,'  , Column  :  ',14,'  ,Line 

116, '  --  Value  : ' ,F14.6) 

600  FORMAT ( / ' $ ' , 3X , ' Dat a  to  be  retrieved  (real  or  "qold")  :  ') 

700  FORMAT ( 80A1 ) 

END 


SUBROUT I NE  ANAD I S ( LEC , I MP , MAXDI M , N , NOCORO , NELEM , MODE ) 


C  This  subroutine  ANADIS  analyses  the  assignement  for  columns 
C  or  rows  through  a  string  given  by  the  user  in  four  modes. 


c 

Examples  : 

Comments  : 

c 

1).  *  or  all  or  ALL 

:  take  all  columns  or 

rows . 

c 

2).  3:12. 

:  take  all  columns 

or  •  rows 

c 

c 

' 

between  the  lower 
boundaries . 

and  upper 

200 


nn  n  n  n  n  n  n  n  n  n  n  r>  n  n  nnnn 


1,3, 3, 2,1 


3)  . 

4)  .  4 


taxe  successively  :r.e  name 
columns  or  rows,  even  repete 
in  the  given  order, 
take  a  single  column  or  rev. 


5).  1,3,12:15,20:27,31  :  mixing  modes  2).  and  3). 


ARGUMENTS  : 

Logical  numbers  for  input/output  keyboard. 
Maximum  dimension  for  NOCORO( ) . 

Maximum  number  of  columns  (NCOL)  or  rows 
( NROW ) . 

Nos.  of  the  displayed  columns  or  rows. 

Total  number  of  elements  to  take  (columns  or 
rows ) . 

Represents  a  chain  of  characters  :  'columns' 
or  ' rows  ' . 

★a*********************************************************** 

IMPLICIT  INTEGER* 2  (I-N) 

DIMENSION  NOCORO ( MAXD I M ) 

CHARACTER*?  MODE 
BYTE  STRING ( 80 ) 

Initialization. 

NELEM= 1 

Flags  for  evental  continuation  lines  if  last 
character '  ,  '  . 

I WRIT-1 
ICONT= 1  ' 

C  - 

DO  WHILE  ( ICONT.EQ. 1) 

c  - 

ICONT=0 

NBEG=0 
NCAR=0 
IBEG-1 
I SER=0 

C  Input  string. 

IF  ( I WRIT . NE . 0 )  WRITE( IMP, 100 )  MODE 
READ  ( LEC , 200 )  STRING 
IWRIT=0 


LEC  and  IMP  : 
MAXD I M  : 

N  : 

NCORO  : 

NELEM  : 

MODE  : 
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Cl  'll 


*  I  empty  string. 


IF  ( STRING ( 1 ) . EQ . '  ')  THEN 

NELEM=0 
RETURN 
END  IF 

If  all  colums  or  lines  are  displayed.  ( *  or  any  let : 


IF  ( STRING ( 1 ) .EQ. ' *' .OR. 

1  (STRING(l) .GE. 'A' . AND . STRING ( 1 ) . LE . ’ Z ' ) .OR. 

2  (STRING(l) .GE. 'a' . AND . STRI NG ( 1 ) .LE. ' z ' ) )  THEN 

DO  I  =  1 ,  N 

NOCORO (  I  )  =  I 
END  DO 
NELEM=N 
RETURN 
END  IF 

String  analysis. 

1  =  1 

DO  WHILE  ( STRING ( I ) . NE . '  ') 

Control  of  string  validity. 

I F ( (STRING( I ) .GE. ' 0 ' .AND. STRING ( I ) . LE . ' 9 ' ) . OR . 
1  (STRING(I) .EQ. ’ : ' .OR  . STRING ( I ). EQ )  THEN 

ELSE 

NELEM=0 

WRITE ( IMP, 400) 

RETURN 
END  IF 

If  between  lower  and  upper  boundaries  (ex:  3:8). 


or/and  if  list  of  numbers  (ex:  2, 5, 8, 3). 


IF  ( STRING ( I ) . EQ. ' , ’ . OR . STRI NG ( I ) . EQ . ' : ' )  THE! 
I END= I  - 1 

DECODE ( NCAR , 300,STRING( I3EG) )  NOCORO ( NELEM i 
IF  ( NOCORO ( NELEM ) .GT.N)  THEN 
WRITE( IMP , 500 )  N 
NELEM=0 
RETURN 
END  IF 

IF  (STRING( I ) .EQ. ’ : ' )  THEN 
I SER= 1 
ELSE 

IF  (STRING( I ) .EQ. ' , ' )  THEN 
IF  (ISER.EQ.l)  THEN 


N3EG=NCCCR0( NELEM- 1 ) - 1 
NEND=NCC3R0  (  NELEM ) 
NELEM=NELEM- 1 
DO  J=N3EG,NEND 
NELEM=NELEM- 1 
NOCORO (  N'ELEM)  =J 
END  DO 
I SER=0 
END  IF 
END  IF 
END  IF 
NCAR=0 

NELEM=NELEM+1 
I  BEG  = I  +1 

ELSE 

NCAR=NCAR+ 1 
END  IF 
1  =  1  +  1 
END  DO 

If  the  number  of  delimiters  is  zero 
Just  one  column  or  row  is  displayed  (ex 

IF  (NELEM.EQ.l)  THEN 
1  =  1-1 

DECODE (  1,300, STRING ( I  BEG )  )  NCCORC(l) 

I F  ( NOCORO ( 1 ) . GT . N )  THEN 
WRITE( IMP, 500 )  N 
NELEM* 0 
RETURN 
ELSE 
END  IF 
E 


Analyse  string  residual. 

DECODE (NCAR, 300 , STRING ( I  BEG)  )  NOCORO ( NELEM ) 

IF  ( NOCORO ( NELEM ) .GT.N)  THEN 
WRITE ( IMP , 500 )  N 
NELEM=0 
RETURN 
ELSE 

For  continuation  line,  if  last  characte 
IF  ( NOCORO ( NELEM) . EQ. 0 )  THEN 
I CONT= 1 
ELSE 

IF  (ISER.EQ.l)  THEN 

NBEG=NOCORO( NELEM- 1 ) +1 
NEND=NOCORO( NELEM) 

NELEM=NELEM- 1 
DO  J=N3EG , NEND 
NELEM=NELEM+ 1 


By 


nnnnnnnnnnnnnnnnnnnnnnnn 


NOCCRG  (  NELEM )  =J 
END  DO 
END  IF 
END  IF 
END  IF 
END  IF 


C  - 

END  DO 
C  - 

RETURN 

C  Formats. 

100  FORMAT(/'$' ,3X, 'Assign  no ( s ) .  of  ',A7,'  :  ') 

200  FORMAT ( 80 Al) 

300  FORMAT ( I < I > ) 

400  FORMAT ( 4X/ / ’  INVALID  INPUT  !! 

1  (must  be  numerical  AND/OR  or 

500  FORMAT ( 4X// '  NUMBER  EXCEEDS ', I  6 ,  '  !!') 

END 


SUBROUT  I NE  F I CH  (  NNN ,  NLOG I C  ,  I AUT  ,  DEVD I R ,  NAME  ,  NENR ,  .MBYTES  , 
1  ISTAT , ACCESS , LEC , IMP ) 

************************************************************* 


This  Subroutine  permits  to  Open,  within  a  FORTRAN  Program 
at  Run  Time,  specific  Files  named  ' FORnnn . DAT ' f or 
calculation  and  deletion  or  general  Files  named 
'file  name. ext'.  These  Files  may  be  used  for  Unformatted 
Direct  Fixed  Access  or  Formatted  Sequential  Variable  Access 

ARGUMENTS  : 

'NNN'  Can  be  3  {0,9}  numerical  equivalent  characters 

otherwise,  a  Key  (ex:  '012',  '326',  a  key  :  ' G 1 3 ' ,  ' TT2 ' ) 

If  NNN= '  ',  the  File  will  be  named  as  the  content  of  NAME. 

If  not,  the  File  will  be  named  as  ' FORnnn . DAT ' ,  ex: 

' FOR012.DAT' . 

NLOG I C  :  Logical  Unit  number. 

IAUT  :  If  IAUT.NE.0,  Input  the  3  characters  Key,  the  File 
is  named  as  'FORkey.DAT',  or  Input  NAME.  If  IAUT=0, 
the  File  is  named  as  'FORNNN.DAT',  or  'name' 

DEVDIR  :  If  '  ',  ask  for  Device  and  Di rectory-Subd i rectorv 
names.  If  ' DUA0 : '  or  ' DU A0 :[ DIRECTORY . SUBd i r ] '  for 
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NAME 


NENR 


ex . , no  change . 

If  NNN=  '  asks  by  Keyboard  the  name  of  the  Kile 
when  I AUT , NE . 0 .  NAME  contents  up  to  10  characters. 

Maximum  records  number. 


NBYTES 


ACCESS 


ISTAT 


INDX 


Number  of  BYTES  per  Record,  If  UNFORMATED  Records, 
transformation  in  full  32  bits  Words,  MUST  be  a 
multiple  of  4  BYTES  (If  not,  BELL  rings,  a  message 
and  a  complementation  occur) 

If  'DIRECT'  :  DIRECT,  UNFORMATTED,  FIXED  records 
otherwise  :  SEQUENTIAL, FORMATTED, VARIABLE  records. 

If  I STA=0  :  'NEW,  otherwise  :  'OLD' 

Associated  Variable  for  Unformatted  Direct  Access, 
not  a  dummy  argument,  it  will  be  auto-post- 
Inc  remen  ted  ,  COMMON  /INDEX/INDX  must  be  present  in 
the  calling  program.  3e  CAREFULL,  INDX  is  common 
for  all  the  opened  files. If  no  COMMON  /INDEX/INDX 
or  Using  another  integer  variable,  no  auto-posr- 
Incrementat ion .  when  READ  or  WRITE. 


Examples  : 


'  nnn ' 
'key' 


I  AUT 


NAME 


QUESTION 


'  '  None 

'  '  None 

'name.dat'  None 
'  '  NAME  ? 


RESULT 

FORnnn . DAT 
FORkey.DAT 
name . ext 
NAME 


nnn '  1 

'  1 


KEY  ? 
NAME  ? 


FORkey.DAT 

NAME 


Remark  :  Priority  is  always  given  to  ’nnn'  or  'k 
present . 
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I F ( DEVOIR . EQ . ’  1 ) THIN 

WRITE ( IMP , 100 ) NLCGIC 

100  FORMAT (' $Dev ice  for  Fils', 13,'  (If  Default  :  <C 
READ ( LEC ,200) DEV 
200  FORMAT (A5) 

WRITE ( IMP, 300 )NLOGIC 

300  FORMAT ( ' $Di rectory  for  File', 13,'  (If  Default  : 

READ ( LEC , 4  0  0  )  D I R 
100  FORMAT (A40) 

DEVDIR=DEV//DIR 

ELSE 

I F ( I AUT . EQ . 0 ) THEN 

I F ( NNN . EQ . '  ' ) THEN 

I F ( NAME . EQ . '  ' )THEN 


500 


600 


WRITE ( IMP, 500  >NLOGIC 

FORMAT (' $Name  for  File ' , 1 3 , '  :  ’) 

READ( LEC, 600 ) NAME 

FORMAT (A10) 


ELSE 


END  IF 

DED I NA  =  DEVD I R//NAME 
GO  TO  1 


ELSE 

END  IF 

DEDINA=DEVDIR//FOR/ /NNN//EXT 
GO  TO  1 


ELSE 

I F ( NNN. EQ . '  ' ) THEN 

WRITE ( IMP, 500 )NLOGIC 
READ ( LEC, 600 ) NAME 
DED I NA= DEVD I R/ /NAME 
GO  TO  1 

ELSE 


WRITE ( I MP ,700) NLOG I C , NNN 
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non  n  n  non  n  n  n  n^nnn 


700 


FORMAT ( / ' $ ' , 3X, 

1  'Key  (xxx)  For  File  FORxxx.DAT  number',: 

2  ',  ( nnn= ' , A3 , ' )  :  ’) 

READ ( LEC ,900) KEY 

800  FORMAT (A3) 

DEDINA=DEVDIR//FOR//KEY//SXT 
GO  TO  1 
C 

END  IF 
C 

END  IF 
C 

END  IF 

Assign  File  to  a  logical  Unit. 

IF( ISTAT.EQ.O )  THEN 
STAT= ' NEW 
ELSE 

STAT= ' OLD ' 

END  IF 

Control  the  Access  Mode  : 


I F ( ACCESS . EQ . ' DIRECT ' ) THEN 

NMOT  3  2  =  I  NT ( NB YTES / 4 ) 

I F ( MOD ( NBYTES , 4 ) . NE . 0 ) THEN 

If  a  message  wanted. 

WRITE ( IMP , 900 ) BELL 
900  FORMAT ( /IX , Al, ’  ERROR  IN  RECORDSIZE  ARGUMENT, 

1  ’MUST  BE  A  MULTIPLE  OF  4’/) 

NMOT  3  2  =  NMOT  32  +  1 
NBYTES=NMOT3  2  *4 

C 

ELSE 

C 

END  IF 
C 

OPEN(unit=NLOGIC, name=DEDINA, status=STAT, 
laccess= ' DIRECT ' , records i ze=NMOT32 , recordtype= ' FIXED 

2  initials ize=NENR, form= ' UNFORMATTED' , 

3 assoc i atevar iable= INDX ) 


nnn  nnnn  n n n n n n n n n n n n n n n n n n n n 


c 


OPEN ( un i t  =  NLOG I C , name  =  DEDINA , status=STAT , 
i access = ’ SEQUENTIAL ' , records ize=N3YTES , 
2recordtype=' VARIABLE ' , in i t iais i ze=NENR , form 

END  IF 

RETURN 


SUBROUTINE  EXSHEL ( X , NO , N , I ND ) 


Subroutine  for  internal  and  address  calculation  sort  us  in 
the  Shell's  method  to  rank  elements  X  in  increasing  orde 
and  modified  for  address  calculations. 

ARGUMENTS  : 


X  :  Elements  to  sort. 

NO  :  Address  calculation  for  the  rank. 

N  :  Number  of  elements  to  sort. 

IND  :  If  >0  elements,  are  ranged  in  increasing  order,  i 
not,  in  decreasing  order. 

Reference  :  Shell  Donald  L.  (1959)  :  "A  High-Speed  Sortie 
Procedure” ,  Comm  of  the  ACM,  vol.2,  July 
p . 30-32  . 

***************************************** 


IMPLICIT  INTEGER*2  (I-N) 

Elements  X  and  TEMP  can  be  declared  as  : 
INTEGER  *2  or  *4,  REAL  *4,  *8,  *16  , CHARACTER 

REAL *4  X ( N ) , TEMP 
DIMENSION  NO ( N ) 

NO  ( I )  =  I 

M=N 

M=M/2 


DO  WHILE ( M . GT . 0 ) 

DO  5  K= 1 , M 
NMM=N-M 

DO  4  I =K , NMM , M 
J=I 


ill 


TEMP  =  X ( I  PM ) 

NOTEMP = NO ( :?M) 

I F ( I ND . GE . 0 ) THEN 

I F ( TEMP . GT . X ( J ) ) GO  TO  3 
ELSE 

I F ( TEMP . LE . X ( J ) ) GO  TO  3 
END  IF 
JPM= J  +M 
X  ( J+M ) =X  (J) 

NO( JPM ) =NO( J ) 

J=J-M 

I F ( J . GE . 1 ) GO  TO  2 
JPM=J  +M 
X(  JPM ) =TEMP 
NO ( JPM ) =NOTEMP 
CONTINUE 
CONTINUE 
M=M/2 

END  DO 
RETURN 
END 

SUBROUTINE  EXSH1 ( X , NO , N , IND) 
l***********************************- 


IMPLICIT  INTEGER*2  (I-N) 
INTEGER* 2  X(N),TEMP 
DIMENSION  NO ( N ) 


NO ( I )  =  I 

M=N 

M=M/2 

DO  WHILE ( M . GT . 0 ) 

DO  5  K*1,M 
NMM=N-M 

DO  4  I =K , NMM , M 
J=I 

I PM= I +M 

TEMP  =  X{ I  PM) 

NOTEMP = NO ( I  PM) 

I F ( IND.GE. 0 )THEN 

I F  CTEMP . GT . X ( J ) ) GO  TO  3 
ELSE 

I F ( TEMP . LE . X ( J ) ) GO  TO  3 


no  n n n n n n n n n n n n n o n n 


END  IF 

JPM=J-M 

X  ( J+M) =X  (J) 

NO ( JPM ) =N0 ( J ) 
J=J-M 

I F ( J . GE . 1 ) GO  TO  2 
JPM=J +M 
X(  JPM ) =TEMP 
NO ( JPM) = NOT EM? 
CONT I NUE 
CONTINUE 
M=M/2 


END  DO 


RETURN 


SUBROUT I NE  ENSORT ( N I N , NOUT , NPRI NT ) 


This  subroutine  permits  Input/Output  modifications  or 
assignments  for  physical  Input  or/and  Output,  or/and  Print 
for  Devices  or  Files  within  a  FORTRAN  Program  or  Subroutine 


ARGUMENTS 


NIN  and  NOUT  are  the  respective  Logical  FORTRAN 
numbers  for  Input  and  Output  (for  Terminal 
in  general)  and  NPRINT  for  Print  (for  Printer 
in  general,  but  may  be  used  for  Terminal  Output 
or  File  output ) . 


SUBROUTINE  called 


I NOUT ( NLOG I C , I , MODE ) 
IMPLICIT  INTEGER* 2  (I-N) 


Call  for  Input. 

CALL  I NOUT ( NIN, 1 , 1 ) 
Call  for  Output. 

CALL  I NOUT (NOUT, 2,0) 
Call  for  Output-Print. 
CALL  I NOUT ( NPR I NT ,3,0) 

RETURN 

END 


.■.v-’yy.-.Wv. 


v  .vV 


no  noon  no  non  n  n  n  n  n  n  n  n  n  n  n  n  r>  n  n  r>  n 


★**★★*** 


*  *  *  *  *  * 


SUBROUT I NE  I NOUT ( NLCG IC , I , MODE 


This  Subroutine  permits  to  OPEN  Devices  or /and  Files 
associate  within  any  FORTRAN  Program  or  Subroutine  at  R 
t  ime . 

ARGUMENTS  : 

NLOGIC  :  FORTRAN  logical  number  associate  to  the  unit 
OPEN,  (NIN,  NOUT,NPRINT  in  the  calling  module 
I  :  Index  (1):  Input,  (2):  OUTput  (for  terminal 

general),  (3)  :  Print-Output  (for  Printer 
File  in  general )  . 

MODE  :  (0):  'NEW,  (1):  'OLD',  otherwise:  'unknown'. 


SUBROUTINE  Called  :  None. 


IMPLICIT  INTEGER*2  (I-N) 


CHARACTER* 40  KEY , NUL 

KEY  is  Accept  via  the  Keyboard  at  RUN  time.- 
CHARACTER* 2 8  DEV(3) 

DEV ( )  is  Typed  on  the  Terminal  in  fonction  of  I. 

CHARACTER*  3  STA(3) 

STA( )  is  referenced  as  'NEW, 'OLD'  or  'unknown'  in  fonction 
of  MODE. 

DIMENSION  NSYS ( 3 ) , I NCOM ( 3 ) 

NSYSO  represents  the  general  used  logical  numbers  for 
Input,  Output  and  Print;  INCOM( ) ,  the  relative 
incompatibility  for  the  NSYSO’s. 

DATA  NUL/ ’  * / 

DATA  DEV/'  Input  Device  (or  File)  :  ','Output  Device 
1  (or  File)  :  Print  Device  (or  File)  :  '/ 

DATA  ST A/' NEW' , 'OLD' , '  '/ 

DATA  NSYS/ 5 , 6 , 6/ I NCOM/ 6,5,5/ 

Incompatibilities  Input  with  Output  in  general. 

I F ( NLOGIC . EQ . NSYS ( I ) ) RETURN 

IF(NLOGIC.GT.O. AND. NLOGIC. NE . INCOM( I ) )GO  TO  1 
NLOGIC=NSYS ( I ) 

RETURN 

C  On  System  Terminal. 

1  TYPE  100 , DEV ( I ) 

100  FORMAT ( / ' $  ' , A28 ) 

ACCEPT  200, KEY 


nnnnnnnnnnnnnnnnn 
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200  FORMAT (A40) 

I F ( KEY . EQ . NUL ) RETURN 
C  If  Change. 

CLOSE ( NLCG I C ) 

I F ( MODE . LT . 0 . OR . MODE . GT . 2 ) MODE  =  2 

OPEN ( un i t  =NLCG IC , f i Le=KEY , status=STA( MODE* 1 ) ) 

RETURN 

END 


SUBROUTINE  REJECT ( LEC , IMP , NRCW , I J , IND , I , I B IT , I OPEN , 
1  I CLOSE ) 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


Subroutine  for  rejection  of  rows  ("logical  suppressio 
these  rows  are  not  physically  suppressed  but  are 
eliminated  from  future  calculus  if  the  Ith.  row 
associated  to  the  binary  value  zero  store  in  the  assi 
rejected  values  support  "binary"  sequential  file  give 
the  user. 


n 

j 


ust 
i  s 


ARGUMENTS  : 


LEC,  IMP 
NROW 

IJ 

IND 

I 

IBIT 

IOPEN 

ICLOSE 


:  Input/Output  logical  numbers  for  Terminal. 

:  Total  number  of  rows  for  the  Data  matrix 
NCOL*NROW . 

:  Integer  array  that  contains  compressed  binary 
information  for  rejection. 

:  If  IND=0  :  to  examine  bits  level. 

If  IND=1  :  to  load  bits  level. 

:  Ith  examination  if  IND=0. 

:  Bit  value  0  or  1  to  return  if  IND=0. 

:  If  equal  to  1,  to  open  a  sequential  file  to 
store  [0,1]. 

:  If  equal  to  1,  to  close  the  sequential  file. 


SUBROUTINES  called  :  COMPOl  for  binary  compression, 

BIT01  for  bits  manipulation. 

★ ************************************************************ 
IMPLICIT  INTEGERS  (I-N) 


C  Compression  :  dimension  of  I J ( )  =  2048/NBITW  to  read  a 

C  single  record. 

INTEGER* 2  NOROW(2048) ,NO(2048) , IJ( 128) 

CHARACTER* 4 5  DEVDI R , NAME* 1 0 
CHARACTER*?  MODROW 
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I 


-  "  u  „ 
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cji  c 


n  n  no  n  on 


100 

200 

300 

Q*  *  * 


DATA  DEVD I R , NAME/ ’ DU AC  :  ’  ,  '  '  / 

DATA  MCDRCW/’  rows'  /LOGSUP/ 3 /NCOLS  ,  J/2  *  1  /'N3 
MAXD IM= ( NRCW *  NCOLS - 1 ) / NB I TW- 1 


IF  (IND.EQ.l)  THEN 

IF  ( IOPEN.EQ. 1 )  THEN 

Assign  rejected  rows  suoport  "binary"  secuer. 
file  according  to  the  WRITE  FORMAT  300. 

WR I TE ( IMP, 100 ) 

CALL  FICH  ( '076' ,LOGSUP,l, DEVOIR, NAME, 1,1024,C 
1  ' SEQUENTIAL' , LEC, IMP) 

END  IF 

Select  rejected  rows  ("logical  suDDress ion" ) . 

WR I TE ( I MP ,200) 

CALL  ANAD I S ( LEC , I MP , NROW , NRCW , NOROW , N3RCW , MCDRCW ) 

Initialization  :  Set  all  values  to  1. 

CALL  COMPOK  I J,  MAXD  IM,  NCOLS,  NROW,  I  ,  J  ,  1 ,  N3ITW  ,  1  ,  1  ) 

Change  selected  rejectable  values  to  0. 

DO  L= 1 , NBROW 

CALL  COMPOK  I  J,  MAXD  I M,  NCOLS,  NROW,  NOROW  (  L)  ,  J  ,  0  , 
1  NBITW, 2,1) 

END  DO 

WR I TE ( LOGSUP ,300)  IJ 
ELSE 

IF  ( IOPEN.EQ. 1)  THEN 

Assign  rejected  rows  support  "binary"  sequer. 
file  according  to  the  WRITE  FORMAT. 

WRITE ( IMP, 100) 

CALL  FICH( '076' , LOGSUP , 1 , DEVDI R , NAME , 1 , 1 0 2 4 , 1 , 
1  ’ SEQUENTIAL' , LEC, IMP) 

READ( LOGSUP' 300)  IJ 
END  IF 

CALL  COMPOK I J, MAXD I M, NCOLS, NROW, I ,J, IBIT, NBITW, 2 
END  IF 


IF  ( ICLOSE.EQ. 1 )  CLOSE ( LOGSUP) 


RETURN 


FORMAT ( /4X ,' Ass ign  sequential  file  for  rejected  valu 
1/4X, 42 ( ' - ' ) ) 

FORMAT(/ 3X, ' Assign  rejected  rows  for  calculus  : 
FORMAT ( 16(818/) ) 


END 


SUBROUTINE  COMPOK  I J  ,  MAXD  I M ,  NCOL  ,  NRCW ,  I  ,  J  ,  1 3  IT,  NBITW 
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C  This  subroutine  is  usee  to  get  or  set  tr.e  oir.ary  va.ue 
C  1  in  a  compressed  binary  matrix  NRCW*NCCL  for  any  I’  = 
C  J  *  s . 

C  ARGUMENTS  : 


IJ  :  Integer  one  machine  vord  by  ele 

represents  the  stored  binary  values  (3,1 
MAXDIM  :  Dimension  of  the  compressed  table  IJ!). 
NCOL  :  Maximum  value  for  the  J’s,  (number  of  co 

NRCW  :  Maximum  value  for  the  I's,  (number  of  ro 

I,  J  :  Actual  value  for  I  and  J. 

IBIT  :  Set  of  return  the  binary  value. 

NBITW  :  Number  of  bits  per  word  (16,  32,  36). 

INI  :  If  0  or  1,  initialize  to  one  of  these  va 

otherwise,  no  action. 

IND  :  If  IND=0  :  examine  bits  level  and  return 
IBIT, 

If  IND=1  :  Set  bit  level  to  the  current  IBIT. 


^  umr.  s  * 


.ues , 


SUBROUTINE  called  :  3IT01  for  bits  man ioulat ions . 


IMPLICIT  INTEGER* 2  (I-N) 

INTEGER* 2  I J (MAXDIM) ,3ITSET(36) ,3  IT (36) 
Initialization  to  0  or  1. 


INIT-0 

IF  ( INI .EQ.O.OR. INI .EQ. I)  THEN 
IF  (INI. EQ . 1 )  INIT=- 1 
DO  K-l, MAXDIM 
I J ( K )  =  I  NIT 
END  DO 


ELSE 

Process  to  examine  or  set  bits  for  the  actual  I's  and 


PHASE  I  :  Calculate  bit  no.  :  NOBIT,  index  NOW  of  the  one 

-  word  array  IJ()  and  position  NOPOS  in  the  word 

( 1  to  NBITW) . 


NOBIT=J  +  NCOL*  (  1-1) 

NOW  = ( NOB  IT- 1 ) /NBITW+1 
NOPOS=NOB IT- ( NOW- 1 ) *NBITW 


nnnnnnnnnnnnnnnnnnnnnn 


PHASE  i: 


Examine  ar.c  return  I3IT  or  set  to  1317 
and  J . 


Set  the  correct  bit  to  the  value  I h'D ,  v 
other  bits  of  IJ(NOW). 


t  r.e 


IF  (IND.EQ.i)  THEN 
DO  K=l, NBITW 
3 ITSET ( K ) =  2 
END  DO 

B ITSET ( NOPOS )  =  1 3 1 T 

CALL  BIT01  ( IJ(NOW) , IND , BIT , BITSET , NBITW ) 
ELSE 


C  Examine  the  correct  bit  value  of  IJ(NCW). 

CALL  BIT01  ( IJ(NOW) , IND, BIT , BITSET , NBITW) 
IBIT=BIT( NOPOS ) 

END  IF 
END  IF 


RETURN 


END 


************* 


SUBROUTINE  BIT01( I , IND, 3IT , BITSET , NBITW) 


******* 


Machine  independent  subroutine  to  examine  or  set  to  a  value 
0  or  1  the  bits  of  any  machine  word  equivalent  to  a  given 
integer  I. 


ARGUMENTS  : 


NBITW 


I 

IND 


BIT  (  ) 
BITSET( ) 


Number  of  bits  per  machine  word  or  considered  by 
the  system.  For  the  VAX11,  NBITW=16  and 

INTEGER*  2 .  ( NBITWth . 9th, 8th, 7th, 6th, 5th, 

4th, 3th, 2nd, Ind) 

INTEGER  (NBITW  bits)  (ex.:  NBITW=16,  32  OR  36) 
If  IND=0  :  examine  the  NBITW  bits  level  and 
store  the  result  in  3IT(). 

If  IND=0  :  set  the  NBITW  bits  level  of  I 
according  the  elements  of  3ITSETO  equal  to  3  or 
1. 

Give  the  content  of  the  NBITW  bits  of  I. 

If  the  content  is  0,  set  the  corresponding  bit  o 
I  to  0  , 

If  the  content  is  1,  set  the  corresponding  bit  o 
I  to  1 , 

otherwise,  no  effect  on  the  integer  I. 


non  n  n  non  nnonnnnnnn 


REFERENCE  : 

GUI. MI SR  3.  (1983)  :  High  level  multilanguage  machine- 

independent  progr  ammat  ion  (  16,  3  2,  3  6  bits'  : 

subroutine  for  bits  manipulations  in  BASIC  am 
FORTRAN  IV.  DECTS,  RTil  SIG,  Mini-Tasker,  vcl5 
no. 4,  10-1983. 

★  **********x*****************************x*****-ir***-**xxx****-c 

IMPLICIT  I NTEGER*  2  (I-.M) 

INTEGER* 2  3 1 TSET ( 3 6 )  , 3  I T ( 3 6 ) 


PHASE  I  :  Search  of  the  bits’ level  for  the  field  i.ott 


Examination  of  the  bits  level  of  the  integer  I. 

NBR=N3 I TW- 1 
IP*  I 

3 1 T ( NB I TW ) a 0 
IF(IP.LT.O)  THEN 

IP  is  previously  a  negative  integer. 

3 IT  (  NB I TW )  =  1 

IP* IP+2  . ** (NBITW-1 ) 

END  IF 

IP  is  a  oositive  integer. 

DO  J= 1 , NBP 

B IT ( J ) =MOD ( IP, 2 ) 

IP-IP/2 
END  DO 


IF  (IND.EQ.O)  RETURN 


PHASE  II  :  Possible  changes  of  the  actual  level  of  the  bits, 
Set  bits  of  integer  I  to  0  or  1  if  required. 

DO  J= 1 , NB ITW 

IF  ( B ITSET ( J ) . NE . 0 )  THEN 
IF  ( B ITSET ( J ) . EQ . 1 )  THEN 
3  IT  (J)=  1 
B ITSET ( J ) = - 1 
END  IF 
ELSE 

BIT  (J)=  0 
B ITSET ( J ) = - 1 
END  IF 
END  DO 


eger  I  reconstitution  using  Horner  Sch 

I =3 1 T ( NBR ) 

N=N3R- 1 
DO  J  =  N ,  1 , -1 

I=I*2+3IT(J) 

END  DO 

If  I  is  a  negative  number. 

IF  ( 3 I T ( NB I TW ) . EQ . 1 )  I » I -2 . ** ( NBITW-1 ) 


RETURN 
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